home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1989-04-04 | 31.4 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 10%
| dexvert
| Truevision Targa Graphic (image/tga)
| magic
| Supported |
| 100%
| file
| data
| default
| |
| 100%
| xdgMime
| image/x-tga
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 12 20 f4 20 3e | 4a 50 54 52 43 59 43 4c |.... . >|JPTRCYCL|
|00000010| 45 53 0d 00 14 06 20 3a | 0d 00 1e 3d 20 f4 20 41 |ES.... :|...= . A|
|00000020| 63 6b 6e 6f 77 6c 65 64 | 67 65 6d 65 6e 74 3a 20 |cknowled|gement: |
|00000030| 41 53 54 52 4f 4e 4f 4d | 59 20 57 49 54 48 20 59 |ASTRONOM|Y WITH Y|
|00000040| 4f 55 52 20 50 45 52 53 | 4f 4e 41 4c 20 43 4f 4d |OUR PERS|ONAL COM|
|00000050| 50 55 54 45 52 0d 00 28 | 2b 20 f4 20 20 20 20 20 |PUTER..(|+ . |
|00000060| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 50 65 74 | | Pet|
|00000070| 65 72 20 44 75 66 66 65 | 74 74 2d 53 6d 69 74 68 |er Duffe|tt-Smith|
|00000080| 0d 00 32 38 20 f4 20 20 | 20 20 20 20 20 20 20 20 |..28 . | |
|00000090| 20 20 20 20 20 20 20 20 | 43 61 6d 62 72 69 64 67 | |Cambridg|
|000000a0| 65 20 55 6e 69 76 65 72 | 73 69 74 79 20 50 72 65 |e Univer|sity Pre|
|000000b0| 73 73 20 20 31 39 38 35 | 0d 00 3c 34 20 f4 20 20 |ss 1985|..<4 . |
|000000c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000000d0| 46 65 72 64 69 6e 61 6e | 64 20 4f 65 69 6e 63 6b |Ferdinan|d Oeinck|
|000000e0| 20 28 73 6f 72 74 20 63 | 6f 64 65 29 0d 00 46 2b | (sort c|ode)..F+|
|000000f0| 20 f4 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | . | |
|00000100| 20 20 20 20 41 63 6f 72 | 6e 20 55 73 65 72 20 44 | Acor|n User D|
|00000110| 65 63 20 31 39 38 38 0d | 00 50 31 20 f4 20 41 64 |ec 1988.|.P1 . Ad|
|00000120| 61 70 74 65 64 20 62 79 | 3a 20 20 20 20 20 20 44 |apted by|: D|
|00000130| 41 41 46 2f 4a 41 46 20 | 44 75 6c 77 69 63 68 20 |AAF/JAF |Dulwich |
|00000140| 4d 61 72 20 31 39 38 39 | 0d 00 5a 06 20 3a 0d 00 |Mar 1989|..Z. :..|
|00000150| 64 1c 20 c8 99 22 4f 53 | 5f 55 70 64 61 74 65 4d |d. .."OS|_UpdateM|
|00000160| 45 4d 43 22 2c 36 34 2c | 36 34 0d 00 6e 0a 20 db |EMC",64,|64..n. .|
|00000170| 3a eb 20 30 0d 00 78 98 | 20 f1 27 8a 35 29 3b 22 |:. 0..x.| .'.5);"|
|00000180| 54 68 69 73 20 72 6f 75 | 74 69 6e 65 20 63 61 6c |This rou|tine cal|
|00000190| 63 75 6c 61 74 65 73 20 | 63 6f 6f 72 64 69 6e 61 |culates |coordina|
|000001a0| 74 65 73 20 61 6e 64 20 | 70 6c 61 6e 65 74 61 72 |tes and |planetar|
|000001b0| 79 20 64 69 73 74 61 6e | 63 65 20 66 72 6f 6d 20 |y distan|ce from |
|000001c0| 45 61 72 74 68 20 20 20 | 20 20 20 20 20 20 20 20 |Earth | |
|000001d0| 20 20 20 6f 66 20 4a 55 | 50 49 54 45 52 2c 20 20 | of JU|PITER, |
|000001e0| 64 75 72 69 6e 67 20 61 | 6e 79 20 70 65 72 69 6f |during a|ny perio|
|000001f0| 64 20 28 69 6e 20 64 61 | 79 73 29 20 75 70 20 74 |d (in da|ys) up t|
|00000200| 6f 20 31 30 20 79 65 61 | 72 73 2e 22 0d 00 82 06 |o 10 yea|rs."....|
|00000210| 20 3a 0d 00 8c 47 20 f2 | 61 73 73 65 6d 62 6c 65 | :...G .|assemble|
|00000220| 3a f4 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |:. | |
|00000230| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000240| 20 20 20 20 20 20 20 20 | 20 20 20 20 41 52 4d 20 | | ARM |
|00000250| 63 6f 64 65 20 73 6f 72 | 74 0d 00 96 1f 20 e8 8a |code sor|t.... ..|
|00000260| 36 34 2c 32 29 3b 22 2a | 50 72 69 6e 74 65 72 2a |64,2);"*|Printer*|
|00000270| 22 3b 54 61 62 6c 65 24 | 0d 00 a0 0f 20 f1 8a 35 |";Table$|.... ..5|
|00000280| 2c 34 29 3b 22 20 22 0d | 00 aa 20 20 de 20 46 4c |,4);" ".|.. . FL|
|00000290| 41 47 28 31 32 29 2c 50 | 4c 41 4e 28 38 2c 39 29 |AG(12),P|LAN(8,9)|
|000002a0| 2c 4d 41 50 28 38 29 0d | 00 b4 1d 20 dd a4 44 45 |,MAP(8).|... ..DE|
|000002b0| 47 28 57 29 3d 35 2e 37 | 32 39 35 37 37 39 35 31 |G(W)=5.7|29577951|
|000002c0| 45 31 2a 57 0d 00 be 1e | 20 dd a4 52 41 44 28 57 |E1*W....| ..RAD(W|
|000002d0| 29 3d 31 2e 37 34 35 33 | 32 39 32 35 32 45 2d 32 |)=1.7453|29252E-2|
|000002e0| 2a 57 0d 00 c8 1c 20 dd | a4 52 4f 55 28 57 2c 58 |*W.... .|.ROU(W,X|
|000002f0| 29 3d a8 28 57 2a 58 2b | 30 2e 35 29 2f 58 0d 00 |)=.(W*X+|0.5)/X..|
|00000300| d2 23 20 dd a4 41 53 4e | 28 57 29 3d 99 28 57 2f |.# ..ASN|(W)=.(W/|
|00000310| 28 b6 28 31 2d 57 2a 57 | 29 2b 31 45 2d 32 30 29 |(.(1-W*W|)+1E-20)|
|00000320| 29 0d 00 dc 21 20 dd a4 | 41 43 53 28 57 29 3d 31 |)...! ..|ACS(W)=1|
|00000330| 2e 35 37 30 37 39 36 33 | 32 37 2d a4 41 53 4e 28 |.5707963|27-.ASN(|
|00000340| 57 29 0d 00 e6 1a 20 dd | a4 49 54 47 28 57 29 3d |W).... .|.ITG(W)=|
|00000350| b4 28 57 29 2a a8 28 94 | 28 57 29 29 0d 00 f0 2c |.(W)*.(.|(W))...,|
|00000360| 20 dd a4 4c 49 46 28 57 | 29 3d a8 28 57 29 2d 28 | ..LIF(W|)=.(W)-(|
|00000370| 46 4c 41 47 28 30 29 2d | 31 29 2a a8 28 28 b4 28 |FLAG(0)-|1)*.((.(|
|00000380| 57 29 2d 31 29 2f 32 29 | 0d 00 fa 1a 20 dd a4 53 |W)-1)/2)|.... ..S|
|00000390| 43 4c 28 57 29 3d 33 32 | 2d 57 2a 33 32 2f 31 30 |CL(W)=32|-W*32/10|
|000003a0| 32 34 0d 01 04 1c 20 dd | a4 55 4e 57 28 57 29 3d |24.... .|.UNW(W)=|
|000003b0| 57 2d a8 28 57 2f 54 50 | 49 29 2a 54 50 49 0d 01 |W-.(W/TP|I)*TPI..|
|000003c0| 0e 06 20 3a 0d 01 18 26 | 20 dd a4 54 49 4d 28 57 |.. :...&| ..TIM(W|
|000003d0| 29 3d a8 28 28 30 2e 33 | 38 33 32 38 2b 30 2e 30 |)=.((0.3|8328+0.0|
|000003e0| 34 31 38 30 2a 32 29 2a | 57 29 0d 01 22 36 20 dd |4180*2)*|W).."6 .|
|000003f0| a4 43 44 4e 28 57 2c 58 | 2c 59 2c 5a 29 3d a8 28 |.CDN(W,X|,Y,Z)=.(|
|00000400| 28 28 28 28 57 2d 58 29 | 2f 28 59 2d 58 29 29 2a |((((W-X)|/(Y-X))*|
|00000410| 28 5a 2d 32 35 29 29 2b | 32 35 29 2b 30 2e 35 29 |(Z-25))+|25)+0.5)|
|00000420| 0d 01 2c 06 20 3a 0d 01 | 36 37 20 46 4c 41 47 28 |..,. :..|67 FLAG(|
|00000430| 30 29 3d 31 3a 50 24 3d | 22 4a 55 50 49 54 45 52 |0)=1:P$=|"JUPITER|
|00000440| 22 3a 44 49 53 3d 31 2e | 34 35 39 33 45 2d 32 3a |":DIS=1.|4593E-2:|
|00000450| 54 50 49 3d 32 2a af 3a | 74 61 62 3d 30 0d 01 40 |TPI=2*.:|tab=0..@|
|00000460| 0e 20 f1 3a f1 3a f7 8d | 74 50 64 0d 01 4a 27 20 |. .:.:..|tPd..J' |
|00000470| e8 22 4c 6f 63 61 74 69 | 6f 6e 20 22 3b 43 49 54 |."Locati|on ";CIT|
|00000480| 59 24 3a e7 20 43 49 54 | 59 24 3d 22 22 8c 8d 64 |Y$:. CIT|Y$=""..d|
|00000490| 42 41 0d 01 54 3a 20 f3 | 4e 41 4d 45 24 2c 4c 31 |BA..T: .|NAME$,L1|
|000004a0| 2c 4c 32 2c 4c 33 2c 4c | 34 2c 4c 35 2c 4c 36 2c |,L2,L3,L|4,L5,L6,|
|000004b0| 4c 37 3a e7 c0 4e 41 4d | 45 24 2c 33 29 3d c0 43 |L7:..NAM|E$,3)=.C|
|000004c0| 49 54 59 24 2c 33 29 8c | 8d 44 72 41 0d 01 5e 2c |ITY$,3).|.DrA..^,|
|000004d0| 20 e7 4e 41 4d 45 24 3d | 22 2a 22 20 8c f1 22 4c | .NAME$=|"*" .."L|
|000004e0| 6f 63 61 74 69 6f 6e 20 | 6e 6f 74 20 66 6f 75 6e |ocation |not foun|
|000004f0| 64 22 3a e5 8d 64 42 41 | 0d 01 68 1f 20 e7 c0 4e |d":..dBA|..h. ..N|
|00000500| 41 4d 45 24 2c 33 29 3c | 3e c0 43 49 54 59 24 2c |AME$,3)<|>.CITY$,|
|00000510| 33 29 8c 8d 44 54 41 0d | 01 72 12 20 f1 8a 31 30 |3)..DTA.|.r. ..10|
|00000520| 2c 37 29 3b 4e 41 4d 45 | 24 0d 01 7c 06 20 f1 0d |,7);NAME|$..|. ..|
|00000530| 01 86 2f 20 58 44 3d 4c | 31 3a 58 4d 3d 4c 32 3a |../ XD=L|1:XM=L2:|
|00000540| 58 53 3d 4c 33 3a e7 4c | 31 3e 2d 32 35 20 8c 20 |XS=L3:.L|1>-25 . |
|00000550| 4b 24 3d 22 2b 22 20 8b | 20 4b 24 3d 22 22 0d 01 |K$="+" .| K$=""..|
|00000560| 90 1d 20 53 57 31 3d 2d | 31 3a f2 4d 69 6e 73 65 |.. SW1=-|1:.Minse|
|00000570| 63 3a 4c 4f 4e 47 3d 58 | 2f 31 35 0d 01 9a 16 20 |c:LONG=X|/15.... |
|00000580| 58 44 3d 4c 34 3a 58 4d | 3d 4c 35 3a 58 53 3d 4c |XD=L4:XM|=L5:XS=L|
|00000590| 36 0d 01 a4 13 20 53 57 | 31 3d 2d 31 3a f2 4d 69 |6.... SW|1=-1:.Mi|
|000005a0| 6e 73 65 63 0d 01 ae 10 | 20 50 48 49 3d a4 52 41 |nsec....| PHI=.RA|
|000005b0| 44 28 58 29 0d 01 b8 0a | 20 e5 8d 64 74 41 0d 01 |D(X)....| ..dtA..|
|000005c0| c2 38 20 e8 22 47 65 6f | 67 2e 20 6c 6f 6e 67 69 |.8 ."Geo|g. longi|
|000005d0| 74 75 64 65 20 20 20 20 | 20 28 44 2c 4d 2c 53 29 |tude | (D,M,S)|
|000005e0| 22 3b 58 44 2c 58 4d 2c | 58 53 3a 4e 41 4d 45 24 |";XD,XM,|XS:NAME$|
|000005f0| 3d c3 28 58 44 29 0d 01 | cc 2c 20 53 57 31 3d 2d |=.(XD)..|., SW1=-|
|00000600| 31 3a f2 4d 69 6e 73 65 | 63 3a e7 58 44 3e 2d 32 |1:.Minse|c:.XD>-2|
|00000610| 35 20 8c 20 4b 24 3d 22 | 2b 22 20 8b 20 4b 24 3d |5 . K$="|+" . K$=|
|00000620| 22 22 0d 01 d6 1c 20 4c | 4f 4e 47 3d 58 2f 31 35 |"".... L|ONG=X/15|
|00000630| 3a 4c 37 3d a4 49 54 47 | 28 4c 4f 4e 47 29 0d 01 |:L7=.ITG|(LONG)..|
|00000640| e0 42 20 e8 22 47 65 6f | 67 72 61 70 68 69 63 20 |.B ."Geo|graphic |
|00000650| 6c 61 74 69 74 75 64 65 | 20 28 44 2c 4d 2c 53 29 |latitude| (D,M,S)|
|00000660| 22 3b 58 44 2c 58 4d 2c | 58 53 3a 4e 41 4d 45 24 |";XD,XM,|XS:NAME$|
|00000670| 3d 4e 41 4d 45 24 2b 22 | 3a 22 2b c3 28 58 44 29 |=NAME$+"|:"+.(XD)|
|00000680| 0d 01 ea 35 20 53 57 31 | 3d 2d 31 3a f2 4d 69 6e |...5 SW1|=-1:.Min|
|00000690| 73 65 63 3a 50 48 49 3d | a4 52 41 44 28 58 29 3a |sec:PHI=|.RAD(X):|
|000006a0| 74 61 62 3d 31 3a f4 20 | 20 73 65 65 20 6c 69 6e |tab=1:. | see lin|
|000006b0| 65 20 37 31 30 0d 01 f4 | 0a 20 f7 8d 54 72 5e 0d |e 710...|. ..Tr^.|
|000006c0| 01 fe 2c 20 e8 22 53 74 | 61 72 74 69 6e 67 20 64 |.., ."St|arting d|
|000006d0| 61 74 65 20 20 20 20 20 | 20 20 28 44 2c 4d 2c 59 |ate | (D,M,Y|
|000006e0| 29 22 3b 44 59 2c 4d 4e | 2c 59 52 0d 02 08 15 20 |)";DY,MN|,YR.... |
|000006f0| f2 4a 75 6c 64 61 79 3a | 44 4a 44 31 3d 44 4a 44 |.Julday:|DJD1=DJD|
|00000700| 0d 02 12 27 20 e8 22 48 | 6f 77 20 6d 61 6e 79 20 |...' ."H|ow many |
|00000710| 64 61 79 73 22 3b 50 51 | 24 3a e7 50 51 24 3d 22 |days";PQ|$:.PQ$="|
|00000720| 22 20 8c 8d 44 58 42 0d | 02 1c 27 20 50 51 3d bb |" ..DXB.|..' PQ=.|
|00000730| 28 50 51 24 29 3a e7 50 | 51 3c 31 30 20 50 51 3d |(PQ$):.P|Q<10 PQ=|
|00000740| 31 30 3a f1 8a 31 34 2c | 31 30 29 3b 50 51 0d 02 |10:..14,|10);PQ..|
|00000750| 26 2c 20 41 4c 54 74 61 | 62 6c 65 3d 50 51 2d 33 |&, ALTta|ble=PQ-3|
|00000760| 3a e7 20 41 4c 54 74 61 | 62 6c 65 3c 31 20 8c 20 |:. ALTta|ble<1 . |
|00000770| 41 4c 54 74 61 62 6c 65 | 3d 31 0d 02 30 22 20 46 |ALTtable|=1..0" F|
|00000780| 4c 41 47 28 32 29 3d 30 | 3a 44 4a 44 3d 44 4a 44 |LAG(2)=0|:DJD=DJD|
|00000790| 2b 50 51 3a 44 4a 44 32 | 3d 44 4a 44 0d 02 3a 0c |+PQ:DJD2|=DJD..:.|
|000007a0| 20 f2 43 61 6c 64 61 79 | 0d 02 44 26 20 f1 22 45 | .Calday|..D& ."E|
|000007b0| 6e 64 20 64 61 74 65 20 | 69 73 3a 20 22 3b 44 59 |nd date |is: ";DY|
|000007c0| 3b 22 20 22 3b 4d 4e 3b | 22 20 22 3b 59 52 0d 02 |;" ";MN;|" ";YR..|
|000007d0| 4e 0a 20 e5 8d 44 76 42 | 0d 02 58 19 20 e8 22 45 |N. ..DvB|..X. ."E|
|000007e0| 6e 64 20 64 61 74 65 22 | 3b 44 59 2c 4d 4e 2c 59 |nd date"|;DY,MN,Y|
|000007f0| 52 0d 02 62 3c 20 46 4c | 41 47 28 31 29 3d 30 3a |R..b< FL|AG(1)=0:|
|00000800| f2 4a 75 6c 64 61 79 3a | 44 4a 44 32 3d 44 4a 44 |.Julday:|DJD2=DJD|
|00000810| 3a 50 51 3d 44 4a 44 32 | 2d 44 4a 44 31 3a e7 20 |:PQ=DJD2|-DJD1:. |
|00000820| 50 51 3c 31 30 20 8c 20 | 50 51 3d 31 30 0d 02 6c |PQ<10 . |PQ=10..l|
|00000830| 14 20 f1 8a 30 29 3b 50 | 51 3b 22 20 64 61 79 73 |. ..0);P|Q;" days|
|00000840| 22 0d 02 76 35 20 44 4a | 44 3d 44 4a 44 31 3a 41 |"..v5 DJ|D=DJD1:A|
|00000850| 4c 54 74 61 62 6c 65 3d | 50 51 2d 33 3a e7 20 41 |LTtable=|PQ-3:. A|
|00000860| 4c 54 74 61 62 6c 65 3c | 31 20 8c 20 41 4c 54 74 |LTtable<|1 . ALTt|
|00000870| 61 62 6c 65 3d 31 0d 02 | 80 06 20 3a 0d 02 8a 0e |able=1..|.. :....|
|00000880| 20 de 20 61 25 20 50 51 | 2a 38 0d 02 94 39 20 de | . a% PQ|*8...9 .|
|00000890| 20 53 50 28 50 51 29 2c | 52 48 4f 30 28 50 51 29 | SP(PQ),|RHO0(PQ)|
|000008a0| 2c 44 41 54 45 28 50 51 | 29 2c 44 41 54 45 41 28 |,DATE(PQ|),DATEA(|
|000008b0| 50 51 29 2c 48 53 52 28 | 50 51 29 2c 48 53 53 28 |PQ),HSR(|PQ),HSS(|
|000008c0| 50 51 29 0d 02 9e 3e 20 | de 20 41 5a 73 75 6e 72 |PQ)...> |. AZsunr|
|000008d0| 69 73 65 28 50 51 29 2c | 41 4c 54 73 75 6e 72 69 |ise(PQ),|ALTsunri|
|000008e0| 73 65 28 50 51 29 2c 41 | 5a 73 75 6e 73 65 74 28 |se(PQ),A|Zsunset(|
|000008f0| 50 51 29 2c 41 4c 54 73 | 75 6e 73 65 74 28 50 51 |PQ),ALTs|unset(PQ|
|00000900| 29 0d 02 a8 25 20 de 20 | 41 5a 6d 69 64 6e 69 67 |)...% . |AZmidnig|
|00000910| 68 74 28 50 51 29 2c 41 | 4c 54 6d 69 64 6e 69 67 |ht(PQ),A|LTmidnig|
|00000920| 68 74 28 50 51 29 0d 02 | b2 3a 20 de 20 4c 41 4d |ht(PQ)..|.: . LAM|
|00000930| 28 50 51 29 2c 42 45 54 | 28 50 51 29 2c 4c 41 4d |(PQ),BET|(PQ),LAM|
|00000940| 41 28 50 51 29 2c 42 45 | 54 41 28 50 51 29 2c 4c |A(PQ),BE|TA(PQ),L|
|00000950| 41 4d 42 28 50 51 29 2c | 42 45 54 42 28 50 51 29 |AMB(PQ),|BETB(PQ)|
|00000960| 0d 02 bc 2a 20 de 20 4c | 50 44 30 28 50 51 29 2c |...* . L|PD0(PQ),|
|00000970| 50 53 49 30 28 50 51 29 | 2c 4c 41 4d 43 28 50 51 |PSI0(PQ)|,LAMC(PQ|
|00000980| 29 2c 42 45 54 43 28 50 | 51 29 0d 02 c6 06 20 3a |),BETC(P|Q).... :|
|00000990| 0d 02 d0 14 20 f1 8a 32 | 33 2c 31 32 2b 74 61 62 |.... ..2|3,12+tab|
|000009a0| 29 3b 50 24 0d 02 da 2c | 20 f1 22 54 69 6d 65 20 |);P$...,| ."Time |
|000009b0| 72 65 71 75 69 72 65 64 | 3a 20 22 3b a4 54 49 4d |required|: ";.TIM|
|000009c0| 28 50 51 29 3b 22 20 73 | 65 63 73 22 3a d1 3d 30 |(PQ);" s|ecs":.=0|
|000009d0| 0d 02 e4 1a 20 e3 20 44 | 51 3d 31 20 b8 20 50 51 |.... . D|Q=1 . PQ|
|000009e0| 3a 44 4a 44 3d 44 4a 44 | 2b 31 0d 02 ee 30 20 f1 |:DJD=DJD|+1...0 .|
|000009f0| 8a 31 35 2c 31 33 2b 74 | 61 62 29 3b c3 28 a4 54 |.15,13+t|ab);.(.T|
|00000a00| 49 4d 28 50 51 29 2d a8 | 28 91 2f 31 30 30 29 29 |IM(PQ)-.|(./100))|
|00000a10| 2b 22 20 73 65 63 73 20 | 20 22 0d 02 f8 1f 20 44 |+" secs | ".... D|
|00000a20| 41 54 45 28 44 51 29 3d | 44 4a 44 3a 44 41 54 45 |ATE(DQ)=|DJD:DATE|
|00000a30| 41 28 44 51 29 3d 44 4a | 44 0d 03 02 17 20 46 4c |A(DQ)=DJ|D.... FL|
|00000a40| 41 47 28 29 3d 30 3a 46 | 4c 41 47 28 30 29 3d 31 |AG()=0:F|LAG(0)=1|
|00000a50| 0d 03 0c 0c 20 f2 43 61 | 6c 64 61 79 0d 03 16 48 |.... .Ca|lday...H|
|00000a60| 20 f2 53 75 6e 72 73 3a | f4 20 20 20 20 20 20 20 | .Sunrs:|. |
|00000a70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000a80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000a90| 20 20 20 20 53 75 6e 72 | 69 73 65 20 26 20 73 75 | Sunr|ise & su|
|00000aa0| 6e 73 65 74 0d 03 20 17 | 20 e7 20 45 52 52 31 3c |nset.. .| . ERR1<|
|00000ab0| 3e 30 20 eb 30 3a e5 8d | 64 68 4d 0d 03 2a 32 20 |>0 .0:..|dhM..*2 |
|00000ac0| 58 44 3d 48 53 52 3a 58 | 4d 3d 4d 53 52 3a 58 53 |XD=HSR:X|M=MSR:XS|
|00000ad0| 3d 53 53 52 3a 53 57 31 | 3d 2d 31 3a f2 4d 69 6e |=SSR:SW1|=-1:.Min|
|00000ae0| 73 65 63 3a 48 53 52 28 | 44 51 29 3d 58 0d 03 34 |sec:HSR(|DQ)=X..4|
|00000af0| 32 20 58 44 3d 48 53 53 | 3a 58 4d 3d 4d 53 53 3a |2 XD=HSS|:XM=MSS:|
|00000b00| 58 53 3d 53 53 53 3a 53 | 57 31 3d 2d 31 3a f2 4d |XS=SSS:S|W1=-1:.M|
|00000b10| 69 6e 73 65 63 3a 48 53 | 53 28 44 51 29 3d 58 0d |insec:HS|S(DQ)=X.|
|00000b20| 03 3e 06 20 3a 0d 03 48 | 0b 20 f2 50 6c 61 6e 73 |.>. :..H|. .Plans|
|00000b30| 0d 03 52 4a 20 4c 50 44 | 30 28 44 51 29 3d 4c 50 |..RJ LPD|0(DQ)=LP|
|00000b40| 44 30 3a 50 53 49 30 28 | 44 51 29 3d 50 53 49 30 |D0:PSI0(|DQ)=PSI0|
|00000b50| 3a f4 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |:. | |
|00000b60| 20 20 48 65 6c 69 6f 63 | 65 6e 74 72 69 63 20 63 | Helioc|entric c|
|00000b70| 6f 6f 72 64 69 6e 61 74 | 65 73 0d 03 5c 4a 20 4c |oordinat|es..\J L|
|00000b80| 41 4d 41 28 44 51 29 3d | 4c 41 4d 3a 42 45 54 41 |AMA(DQ)=|LAM:BETA|
|00000b90| 28 44 51 29 3d 42 45 54 | 3a f4 20 20 20 20 20 20 |(DQ)=BET|:. |
|00000ba0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 47 65 | | Ge|
|00000bb0| 6f 63 65 6e 74 72 69 63 | 20 63 6f 6f 72 64 69 6e |ocentric| coordin|
|00000bc0| 61 74 65 73 0d 03 66 1e | 20 f2 4e 75 74 61 74 3a |ates..f.| .Nutat:|
|00000bd0| 4c 41 4d 3d 4c 41 4d 2b | a4 52 41 44 28 44 50 53 |LAM=LAM+|.RAD(DPS|
|00000be0| 49 29 0d 03 70 1f 20 41 | 3d 4c 47 2b af 2d 4c 41 |I)..p. A|=LG+.-LA|
|00000bf0| 4d 3a 43 41 3d 9b 28 41 | 29 3a 53 41 3d b5 28 41 |M:CA=.(A|):SA=.(A|
|00000c00| 29 0d 03 7a 22 20 4c 41 | 4d 3d 4c 41 4d 2d 28 39 |)..z" LA|M=LAM-(9|
|00000c10| 2e 39 33 38 37 45 2d 35 | 2a 43 41 2f 9b 28 42 45 |.9387E-5|*CA/.(BE|
|00000c20| 54 29 29 0d 03 84 22 20 | 42 45 54 3d 42 45 54 2d |T))..." |BET=BET-|
|00000c30| 28 39 2e 39 33 38 37 45 | 2d 35 2a 53 41 2a b5 28 |(9.9387E|-5*SA*.(|
|00000c40| 42 45 54 29 29 0d 03 8e | 32 20 58 3d 4c 41 4d 3a |BET))...|2 X=LAM:|
|00000c50| 59 3d 42 45 54 3a 53 57 | 33 3d 2d 31 3a f2 45 71 |Y=BET:SW|3=-1:.Eq|
|00000c60| 65 63 6c 3a 4c 41 4d 28 | 44 51 29 3d 50 3a 42 45 |ecl:LAM(|DQ)=P:BE|
|00000c70| 54 28 44 51 29 3d 51 0d | 03 98 4a 20 4c 41 4d 42 |T(DQ)=Q.|..J LAMB|
|00000c80| 28 44 51 29 3d 50 3a 42 | 45 54 42 28 44 51 29 3d |(DQ)=P:B|ETB(DQ)=|
|00000c90| 51 3a 4c 41 4d 43 28 44 | 51 29 3d 50 3a 42 45 54 |Q:LAMC(D|Q)=P:BET|
|00000ca0| 43 28 44 51 29 3d 51 3a | f4 20 20 45 71 75 61 74 |C(DQ)=Q:|. Equat|
|00000cb0| 6f 72 69 61 6c 20 63 6f | 6f 72 64 69 6e 61 74 65 |orial co|ordinate|
|00000cc0| 73 0d 03 a2 25 20 43 45 | 4c 3d 2d 31 2a 43 59 2a |s...% CE|L=-1*CY*|
|00000cd0| 9b 28 4c 41 4d 2d 4c 47 | 29 3a 45 4c 3d a4 41 43 |.(LAM-LG|):EL=.AC|
|00000ce0| 53 28 43 45 4c 29 0d 03 | ac 15 20 52 48 4f 30 28 |S(CEL)..|.. RHO0(|
|00000cf0| 44 51 29 3d 52 48 4f 30 | 2a 31 30 0d 03 b6 4a 20 |DQ)=RHO0|*10...J |
|00000d00| 58 3d a4 44 45 47 28 4c | 41 4d 28 44 51 29 2f 31 |X=.DEG(L|AM(DQ)/1|
|00000d10| 35 29 3a 59 3d 42 45 54 | 28 44 51 29 3a f4 20 20 |5):Y=BET|(DQ):. |
|00000d20| 20 20 20 20 20 20 20 20 | 52 69 67 68 74 20 41 73 | |Right As|
|00000d30| 63 65 6e 73 69 6f 6e 20 | 26 20 44 65 63 6c 69 6e |cension |& Declin|
|00000d40| 61 74 69 6f 6e 0d 03 c0 | 06 20 3a 0d 03 ca 17 20 |ation...|. :.... |
|00000d50| 46 4c 41 47 28 29 3d 30 | 3a 46 4c 41 47 28 30 29 |FLAG()=0|:FLAG(0)|
|00000d60| 3d 31 0d 03 d4 06 20 3a | 0d 03 de 25 20 54 49 4d |=1.... :|...% TIM|
|00000d70| 3d 48 53 53 28 44 51 29 | 3a 53 57 32 3d 31 3a f2 |=HSS(DQ)|:SW2=1:.|
|00000d80| 47 74 69 6d 65 3a 47 53 | 54 3d 47 54 4d 0d 03 e8 |Gtime:GS|T=GTM...|
|00000d90| 1e 20 58 3d a4 44 45 47 | 28 4c 41 4d 28 44 51 29 |. X=.DEG|(LAM(DQ)|
|00000da0| 2f 31 35 29 3a f2 48 72 | 61 6e 67 0d 03 f2 22 20 |/15):.Hr|ang..." |
|00000db0| 58 3d a4 52 41 44 28 50 | 29 2a 31 35 3a 59 3d 42 |X=.RAD(P|)*15:Y=B|
|00000dc0| 45 54 28 44 51 29 3a f2 | 45 71 68 6f 72 0d 03 fc |ET(DQ):.|Eqhor...|
|00000dd0| 48 20 58 3d a4 44 45 47 | 28 50 29 3a 51 3d a4 44 |H X=.DEG|(P):Q=.D|
|00000de0| 45 47 28 51 29 3a f4 20 | 20 20 20 20 20 20 20 20 |EG(Q):. | |
|00000df0| 20 20 20 20 20 20 20 20 | 20 20 20 41 6c 74 2f 41 | | Alt/A|
|00000e00| 7a 20 6f 66 20 70 6c 61 | 6e 65 74 20 61 74 20 53 |z of pla|net at S|
|00000e10| 75 6e 73 65 74 0d 04 06 | 23 20 41 5a 73 75 6e 73 |unset...|# AZsuns|
|00000e20| 65 74 28 44 51 29 3d 58 | 3a 41 4c 54 73 75 6e 73 |et(DQ)=X|:ALTsuns|
|00000e30| 65 74 28 44 51 29 3d 51 | 0d 04 10 06 20 3a 0d 04 |et(DQ)=Q|.... :..|
|00000e40| 1a 17 20 46 4c 41 47 28 | 29 3d 30 3a 46 4c 41 47 |.. FLAG(|)=0:FLAG|
|00000e50| 28 30 29 3d 31 0d 04 24 | 06 20 3a 0d 04 2e 20 20 |(0)=1..$|. :... |
|00000e60| 54 49 4d 3d 30 3a 53 57 | 32 3d 2d 31 3a f2 47 74 |TIM=0:SW|2=-1:.Gt|
|00000e70| 69 6d 65 3a 47 53 54 3d | 47 54 4d 0d 04 38 1e 20 |ime:GST=|GTM..8. |
|00000e80| 58 3d a4 44 45 47 28 4c | 41 4d 28 44 51 29 2f 31 |X=.DEG(L|AM(DQ)/1|
|00000e90| 35 29 3a f2 48 72 61 6e | 67 0d 04 42 22 20 58 3d |5):.Hran|g..B" X=|
|00000ea0| a4 52 41 44 28 50 29 2a | 31 35 3a 59 3d 42 45 54 |.RAD(P)*|15:Y=BET|
|00000eb0| 28 44 51 29 3a f2 45 71 | 68 6f 72 0d 04 4c 49 20 |(DQ):.Eq|hor..LI |
|00000ec0| 58 3d a4 44 45 47 28 50 | 29 3a 51 3d a4 44 45 47 |X=.DEG(P|):Q=.DEG|
|00000ed0| 28 51 29 3a f4 20 20 20 | 20 20 20 20 20 20 20 20 |(Q):. | |
|00000ee0| 20 20 20 20 20 20 20 20 | 41 6c 74 2f 41 7a 20 6f | |Alt/Az o|
|00000ef0| 66 20 70 6c 61 6e 65 74 | 20 61 74 20 4d 69 64 6e |f planet| at Midn|
|00000f00| 69 67 68 74 0d 04 56 27 | 20 41 5a 6d 69 64 6e 69 |ight..V'| AZmidni|
|00000f10| 67 68 74 28 44 51 29 3d | 58 3a 41 4c 54 6d 69 64 |ght(DQ)=|X:ALTmid|
|00000f20| 6e 69 67 68 74 28 44 51 | 29 3d 51 0d 04 60 06 20 |night(DQ|)=Q..`. |
|00000f30| 3a 0d 04 6a 17 20 46 4c | 41 47 28 29 3d 30 3a 46 |:..j. FL|AG()=0:F|
|00000f40| 4c 41 47 28 30 29 3d 31 | 0d 04 74 06 20 3a 0d 04 |LAG(0)=1|..t. :..|
|00000f50| 7e 25 20 54 49 4d 3d 48 | 53 52 28 44 51 29 3a 53 |~% TIM=H|SR(DQ):S|
|00000f60| 57 32 3d 31 3a f2 47 74 | 69 6d 65 3a 47 53 54 3d |W2=1:.Gt|ime:GST=|
|00000f70| 47 54 4d 0d 04 88 1e 20 | 58 3d a4 44 45 47 28 4c |GTM.... |X=.DEG(L|
|00000f80| 41 4d 28 44 51 29 2f 31 | 35 29 3a f2 48 72 61 6e |AM(DQ)/1|5):.Hran|
|00000f90| 67 0d 04 92 22 20 58 3d | a4 52 41 44 28 50 29 2a |g..." X=|.RAD(P)*|
|00000fa0| 31 35 3a 59 3d 42 45 54 | 28 44 51 29 3a f2 45 71 |15:Y=BET|(DQ):.Eq|
|00000fb0| 68 6f 72 0d 04 9c 49 20 | 58 3d a4 44 45 47 28 50 |hor...I |X=.DEG(P|
|00000fc0| 29 3a 51 3d a4 44 45 47 | 28 51 29 3a f4 20 20 20 |):Q=.DEG|(Q):. |
|00000fd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000fe0| 20 41 6c 74 2f 41 7a 20 | 6f 66 20 70 6c 61 6e 65 | Alt/Az |of plane|
|00000ff0| 74 20 61 74 20 53 75 6e | 72 69 73 65 0d 04 a6 25 |t at Sun|rise...%|
|00001000| 20 41 5a 73 75 6e 72 69 | 73 65 28 44 51 29 3d 58 | AZsunri|se(DQ)=X|
|00001010| 3a 41 4c 54 73 75 6e 72 | 69 73 65 28 44 51 29 3d |:ALTsunr|ise(DQ)=|
|00001020| 51 0d 04 b0 06 20 3a 0d | 04 ba 09 20 ed 20 44 51 |Q.... :.|... . DQ|
|00001030| 0d 04 c4 06 20 3a 0d 04 | ce 33 20 e3 4a 3d 31 b8 |.... :..|.3 .J=1.|
|00001040| 50 51 3a 61 25 21 28 4a | 2a 38 2d 34 29 3d 4a 3a |PQ:a%!(J|*8-4)=J:|
|00001050| 61 25 21 28 4a 2a 38 29 | 3d a8 28 4c 41 4d 41 28 |a%!(J*8)|=.(LAMA(|
|00001060| 4a 29 2a 31 45 36 29 3a | ed 0d 04 d8 0a 20 41 25 |J)*1E6):|..... A%|
|00001070| 3d 61 25 0d 04 e2 09 20 | 42 25 3d 31 0d 04 ec 0a |=a%.... |B%=1....|
|00001080| 20 43 25 3d 50 51 0d 04 | f6 47 20 d6 20 71 73 6f | C%=PQ..|.G . qso|
|00001090| 72 74 3a f4 20 20 20 20 | 20 20 20 20 20 20 20 20 |rt:. | |
|000010a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 53 6f 72 74 | | Sort|
|000010b0| 69 6e 67 20 62 79 20 67 | 65 6f 63 65 6e 74 72 69 |ing by g|eocentri|
|000010c0| 63 20 63 6f 6f 72 64 69 | 6e 61 74 65 73 0d 05 00 |c coordi|nates...|
|000010d0| 06 20 3a 0d 05 0a 44 20 | e3 4a 3d 31 b8 50 51 3a |. :...D |.J=1.PQ:|
|000010e0| 4c 41 4d 41 28 4a 29 3d | 61 25 21 28 4a 2a 38 29 |LAMA(J)=|a%!(J*8)|
|000010f0| 2f 31 45 36 3a ed 3a 4c | 41 4d 41 6d 61 78 3d 4c |/1E6:.:L|AMAmax=L|
|00001100| 41 4d 41 28 50 51 29 3a | 4c 41 4d 41 6d 69 6e 3d |AMA(PQ):|LAMAmin=|
|00001110| 4c 41 4d 41 28 31 29 0d | 05 14 38 20 e3 4a 3d 31 |LAMA(1).|..8 .J=1|
|00001120| b8 50 51 3a 53 50 28 4a | 29 3d 44 41 54 45 28 61 |.PQ:SP(J|)=DATE(a|
|00001130| 25 21 28 4a 2a 38 2d 34 | 29 29 3a ed 3a 44 41 54 |%!(J*8-4|)):.:DAT|
|00001140| 45 28 29 3d 53 50 28 29 | 3a 53 50 28 29 3d 30 0d |E()=SP()|:SP()=0.|
|00001150| 05 1e 32 20 e3 4a 3d 31 | b8 50 51 3a 61 25 21 28 |..2 .J=1|.PQ:a%!(|
|00001160| 4a 2a 38 29 3d a8 28 44 | 41 54 45 28 4a 29 2a 31 |J*8)=.(D|ATE(J)*1|
|00001170| 30 29 3a 61 25 21 28 4a | 2a 38 2d 34 29 3d 4a 3a |0):a%!(J|*8-4)=J:|
|00001180| ed 0d 05 28 0a 20 41 25 | 3d 61 25 0d 05 32 09 20 |...(. A%|=a%..2. |
|00001190| 42 25 3d 31 0d 05 3c 0a | 20 43 25 3d 50 51 0d 05 |B%=1..<.| C%=PQ..|
|000011a0| 46 47 20 d6 20 71 73 6f | 72 74 3a f4 20 20 20 20 |FG . qso|rt:. |
|000011b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000011c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000011d0| 52 65 2d 73 6f 72 74 20 | 69 6e 20 64 61 74 65 20 |Re-sort |in date |
|000011e0| 6f 72 64 65 72 0d 05 50 | 06 20 3a 0d 05 5a 22 20 |order..P|. :..Z" |
|000011f0| e3 4a 3d 31 b8 50 51 3a | 44 41 54 45 28 4a 29 3d |.J=1.PQ:|DATE(J)=|
|00001200| 61 25 21 28 4a 2a 38 29 | 2f 31 30 3a ed 0d 05 64 |a%!(J*8)|/10:...d|
|00001210| 38 20 e3 4a 3d 31 b8 50 | 51 3a 53 50 28 4a 29 3d |8 .J=1.P|Q:SP(J)=|
|00001220| 4c 41 4d 41 28 61 25 21 | 28 4a 2a 38 2d 34 29 29 |LAMA(a%!|(J*8-4))|
|00001230| 3a ed 3a 4c 41 4d 41 28 | 29 3d 53 50 28 29 3a 53 |:.:LAMA(|)=SP():S|
|00001240| 50 28 29 3d 30 0d 05 6e | 06 20 3a 0d 05 78 33 20 |P()=0..n|. :..x3 |
|00001250| e3 4a 3d 31 b8 50 51 3a | 61 25 21 28 4a 2a 38 2d |.J=1.PQ:|a%!(J*8-|
|00001260| 34 29 3d 4a 3a 61 25 21 | 28 4a 2a 38 29 3d a8 28 |4)=J:a%!|(J*8)=.(|
|00001270| 4c 41 4d 43 28 4a 29 2a | 31 45 36 29 3a ed 0d 05 |LAMC(J)*|1E6):...|
|00001280| 82 0a 20 41 25 3d 61 25 | 0d 05 8c 09 20 42 25 3d |.. A%=a%|.... B%=|
|00001290| 31 0d 05 96 0a 20 43 25 | 3d 50 51 0d 05 a0 47 20 |1.... C%|=PQ...G |
|000012a0| d6 20 71 73 6f 72 74 3a | f4 20 20 20 20 20 20 20 |. qsort:|. |
|000012b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000012c0| 20 53 6f 72 74 69 6e 67 | 20 62 79 20 65 71 75 61 | Sorting| by equa|
|000012d0| 74 6f 72 69 61 6c 20 63 | 6f 6f 72 64 69 6e 61 74 |torial c|oordinat|
|000012e0| 65 73 0d 05 aa 06 20 3a | 0d 05 b4 44 20 e3 4a 3d |es.... :|...D .J=|
|000012f0| 31 b8 50 51 3a 4c 41 4d | 43 28 4a 29 3d 61 25 21 |1.PQ:LAM|C(J)=a%!|
|00001300| 28 4a 2a 38 29 2f 31 45 | 36 3a ed 3a 4c 41 4d 43 |(J*8)/1E|6:.:LAMC|
|00001310| 6d 61 78 3d 4c 41 4d 43 | 28 50 51 29 3a 4c 41 4d |max=LAMC|(PQ):LAM|
|00001320| 43 6d 69 6e 3d 4c 41 4d | 43 28 31 29 0d 05 be 38 |Cmin=LAM|C(1)...8|
|00001330| 20 e3 4a 3d 31 b8 50 51 | 3a 53 50 28 4a 29 3d 44 | .J=1.PQ|:SP(J)=D|
|00001340| 41 54 45 28 61 25 21 28 | 4a 2a 38 2d 34 29 29 3a |ATE(a%!(|J*8-4)):|
|00001350| ed 3a 44 41 54 45 28 29 | 3d 53 50 28 29 3a 53 50 |.:DATE()|=SP():SP|
|00001360| 28 29 3d 30 0d 05 c8 32 | 20 e3 4a 3d 31 b8 50 51 |()=0...2| .J=1.PQ|
|00001370| 3a 61 25 21 28 4a 2a 38 | 29 3d a8 28 44 41 54 45 |:a%!(J*8|)=.(DATE|
|00001380| 28 4a 29 2a 31 30 29 3a | 61 25 21 28 4a 2a 38 2d |(J)*10):|a%!(J*8-|
|00001390| 34 29 3d 4a 3a ed 0d 05 | d2 0a 20 41 25 3d 61 25 |4)=J:...|.. A%=a%|
|000013a0| 0d 05 dc 09 20 42 25 3d | 31 0d 05 e6 0a 20 43 25 |.... B%=|1.... C%|
|000013b0| 3d 50 51 0d 05 f0 47 20 | d6 20 71 73 6f 72 74 3a |=PQ...G |. qsort:|
|000013c0| f4 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|000013d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000013e0| 20 20 20 20 20 52 65 2d | 73 6f 72 74 20 69 6e 20 | Re-|sort in |
|000013f0| 64 61 74 65 20 6f 72 64 | 65 72 0d 05 fa 06 20 3a |date ord|er.... :|
|00001400| 0d 06 04 22 20 e3 4a 3d | 31 b8 50 51 3a 44 41 54 |..." .J=|1.PQ:DAT|
|00001410| 45 28 4a 29 3d 61 25 21 | 28 4a 2a 38 29 2f 31 30 |E(J)=a%!|(J*8)/10|
|00001420| 3a ed 0d 06 0e 38 20 e3 | 4a 3d 31 b8 50 51 3a 53 |:....8 .|J=1.PQ:S|
|00001430| 50 28 4a 29 3d 4c 41 4d | 43 28 61 25 21 28 4a 2a |P(J)=LAM|C(a%!(J*|
|00001440| 38 2d 34 29 29 3a ed 3a | 4c 41 4d 43 28 29 3d 53 |8-4)):.:|LAMC()=S|
|00001450| 50 28 29 3a 53 50 28 29 | 3d 30 0d 06 18 06 20 3a |P():SP()|=0.... :|
|00001460| 0d 06 22 06 20 3a 0d 06 | 2c 33 20 e3 4a 3d 31 b8 |..". :..|,3 .J=1.|
|00001470| 50 51 3a 61 25 21 28 4a | 2a 38 2d 34 29 3d 4a 3a |PQ:a%!(J|*8-4)=J:|
|00001480| 61 25 21 28 4a 2a 38 29 | 3d a8 28 4c 50 44 30 28 |a%!(J*8)|=.(LPD0(|
|00001490| 4a 29 2a 31 45 36 29 3a | ed 0d 06 36 0a 20 41 25 |J)*1E6):|...6. A%|
|000014a0| 3d 61 25 0d 06 40 09 20 | 42 25 3d 31 0d 06 4a 0a |=a%..@. |B%=1..J.|
|000014b0| 20 43 25 3d 50 51 0d 06 | 54 47 20 d6 20 71 73 6f | C%=PQ..|TG . qso|
|000014c0| 72 74 3a f4 20 20 20 20 | 20 20 20 20 20 20 20 20 |rt:. | |
|000014d0| 20 20 20 20 20 20 20 20 | 20 20 53 6f 72 74 69 6e | | Sortin|
|000014e0| 67 20 62 79 20 68 65 6c | 69 6f 63 65 6e 74 72 69 |g by hel|iocentri|
|000014f0| 63 20 63 6f 6f 72 64 69 | 6e 61 74 65 73 0d 06 5e |c coordi|nates..^|
|00001500| 06 20 3a 0d 06 68 44 20 | e3 4a 3d 31 b8 50 51 3a |. :..hD |.J=1.PQ:|
|00001510| 4c 50 44 30 28 4a 29 3d | 61 25 21 28 4a 2a 38 29 |LPD0(J)=|a%!(J*8)|
|00001520| 2f 31 45 36 3a ed 3a 4c | 50 44 30 6d 61 78 3d 4c |/1E6:.:L|PD0max=L|
|00001530| 50 44 30 28 50 51 29 3a | 4c 50 44 30 6d 69 6e 3d |PD0(PQ):|LPD0min=|
|00001540| 4c 50 44 30 28 31 29 0d | 06 72 38 20 e3 4a 3d 31 |LPD0(1).|.r8 .J=1|
|00001550| b8 50 51 3a 53 50 28 4a | 29 3d 44 41 54 45 28 61 |.PQ:SP(J|)=DATE(a|
|00001560| 25 21 28 4a 2a 38 2d 34 | 29 29 3a ed 3a 44 41 54 |%!(J*8-4|)):.:DAT|
|00001570| 45 28 29 3d 53 50 28 29 | 3a 53 50 28 29 3d 30 0d |E()=SP()|:SP()=0.|
|00001580| 06 7c 06 20 3a 0d 06 86 | 32 20 e3 4a 3d 31 b8 50 |.|. :...|2 .J=1.P|
|00001590| 51 3a 61 25 21 28 4a 2a | 38 29 3d a8 28 44 41 54 |Q:a%!(J*|8)=.(DAT|
|000015a0| 45 28 4a 29 2a 31 30 29 | 3a 61 25 21 28 4a 2a 38 |E(J)*10)|:a%!(J*8|
|000015b0| 2d 34 29 3d 4a 3a ed 0d | 06 90 0a 20 41 25 3d 61 |-4)=J:..|... A%=a|
|000015c0| 25 0d 06 9a 09 20 42 25 | 3d 31 0d 06 a4 0a 20 43 |%.... B%|=1.... C|
|000015d0| 25 3d 50 51 0d 06 ae 46 | 20 d6 20 71 73 6f 72 74 |%=PQ...F| . qsort|
|000015e0| 3a f4 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |:. | |
|000015f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001600| 20 20 20 20 20 52 65 2d | 73 6f 72 74 20 69 6e 20 | Re-|sort in |
|00001610| 64 61 74 65 20 6f 72 64 | 65 72 0d 06 b8 06 20 3a |date ord|er.... :|
|00001620| 0d 06 c2 22 20 e3 4a 3d | 31 b8 50 51 3a 44 41 54 |..." .J=|1.PQ:DAT|
|00001630| 45 28 4a 29 3d 61 25 21 | 28 4a 2a 38 29 2f 31 30 |E(J)=a%!|(J*8)/10|
|00001640| 3a ed 0d 06 cc 38 20 e3 | 4a 3d 31 b8 50 51 3a 53 |:....8 .|J=1.PQ:S|
|00001650| 50 28 4a 29 3d 4c 50 44 | 30 28 61 25 21 28 4a 2a |P(J)=LPD|0(a%!(J*|
|00001660| 38 2d 34 29 29 3a ed 3a | 4c 50 44 30 28 29 3d 53 |8-4)):.:|LPD0()=S|
|00001670| 50 28 29 3a 53 50 28 29 | 3d 30 0d 06 d6 06 20 3a |P():SP()|=0.... :|
|00001680| 0d 06 e0 06 20 3a 0d 06 | ea 33 20 e3 4a 3d 31 b8 |.... :..|.3 .J=1.|
|00001690| 50 51 3a 61 25 21 28 4a | 2a 38 2d 34 29 3d 4a 3a |PQ:a%!(J|*8-4)=J:|
|000016a0| 61 25 21 28 4a 2a 38 29 | 3d a8 28 52 48 4f 30 28 |a%!(J*8)|=.(RHO0(|
|000016b0| 4a 29 2a 31 45 36 29 3a | ed 0d 06 f4 0a 20 41 25 |J)*1E6):|..... A%|
|000016c0| 3d 61 25 0d 06 fe 09 20 | 42 25 3d 31 0d 07 08 0a |=a%.... |B%=1....|
|000016d0| 20 43 25 3d 50 51 0d 07 | 12 46 20 d6 20 71 73 6f | C%=PQ..|.F . qso|
|000016e0| 72 74 3a f4 20 20 20 20 | 20 20 20 20 20 20 20 20 |rt:. | |
|000016f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001700| 20 20 20 20 20 20 20 20 | 20 53 6f 72 74 69 6e 67 | | Sorting|
|00001710| 20 62 79 20 64 69 73 74 | 61 6e 63 65 0d 07 1c 06 | by dist|ance....|
|00001720| 20 3a 0d 07 26 44 20 e3 | 4a 3d 31 b8 50 51 3a 52 | :..&D .|J=1.PQ:R|
|00001730| 48 4f 30 28 4a 29 3d 61 | 25 21 28 4a 2a 38 29 2f |HO0(J)=a|%!(J*8)/|
|00001740| 31 45 36 3a ed 3a 52 48 | 4f 30 6d 61 78 3d 52 48 |1E6:.:RH|O0max=RH|
|00001750| 4f 30 28 50 51 29 3a 52 | 48 4f 30 6d 69 6e 3d 52 |O0(PQ):R|HO0min=R|
|00001760| 48 4f 30 28 31 29 0d 07 | 30 38 20 e3 4a 3d 31 b8 |HO0(1)..|08 .J=1.|
|00001770| 50 51 3a 53 50 28 4a 29 | 3d 44 41 54 45 28 61 25 |PQ:SP(J)|=DATE(a%|
|00001780| 21 28 4a 2a 38 2d 34 29 | 29 3a ed 3a 44 41 54 45 |!(J*8-4)|):.:DATE|
|00001790| 28 29 3d 53 50 28 29 3a | 53 50 28 29 3d 30 0d 07 |()=SP():|SP()=0..|
|000017a0| 3a 3a 20 e3 4a 3d 31 b8 | 50 51 3a 53 50 28 4a 29 |:: .J=1.|PQ:SP(J)|
|000017b0| 3d 44 41 54 45 41 28 61 | 25 21 28 4a 2a 38 2d 34 |=DATEA(a|%!(J*8-4|
|000017c0| 29 29 3a ed 3a 44 41 54 | 45 41 28 29 3d 53 50 28 |)):.:DAT|EA()=SP(|
|000017d0| 29 3a 53 50 28 29 3d 30 | 0d 07 44 36 20 e3 4a 3d |):SP()=0|..D6 .J=|
|000017e0| 31 b8 50 51 3a 53 50 28 | 4a 29 3d 4c 41 4d 28 61 |1.PQ:SP(|J)=LAM(a|
|000017f0| 25 21 28 4a 2a 38 2d 34 | 29 29 3a ed 3a 4c 41 4d |%!(J*8-4|)):.:LAM|
|00001800| 28 29 3d 53 50 28 29 3a | 53 50 28 29 3d 30 0d 07 |()=SP():|SP()=0..|
|00001810| 4e 38 20 e3 4a 3d 31 b8 | 50 51 3a 53 50 28 4a 29 |N8 .J=1.|PQ:SP(J)|
|00001820| 3d 4c 41 4d 42 28 61 25 | 21 28 4a 2a 38 2d 34 29 |=LAMB(a%|!(J*8-4)|
|00001830| 29 3a ed 3a 4c 41 4d 42 | 28 29 3d 53 50 28 29 3a |):.:LAMB|()=SP():|
|00001840| 53 50 28 29 3d 30 0d 07 | 58 36 20 e3 4a 3d 31 b8 |SP()=0..|X6 .J=1.|
|00001850| 50 51 3a 53 50 28 4a 29 | 3d 42 45 54 28 61 25 21 |PQ:SP(J)|=BET(a%!|
|00001860| 28 4a 2a 38 2d 34 29 29 | 3a ed 3a 42 45 54 28 29 |(J*8-4))|:.:BET()|
|00001870| 3d 53 50 28 29 3a 53 50 | 28 29 3d 30 0d 07 62 38 |=SP():SP|()=0..b8|
|00001880| 20 e3 4a 3d 31 b8 50 51 | 3a 53 50 28 4a 29 3d 42 | .J=1.PQ|:SP(J)=B|
|00001890| 45 54 42 28 61 25 21 28 | 4a 2a 38 2d 34 29 29 3a |ETB(a%!(|J*8-4)):|
|000018a0| ed 3a 42 45 54 42 28 29 | 3d 53 50 28 29 3a 53 50 |.:BETB()|=SP():SP|
|000018b0| 28 29 3d 30 0d 07 6c 36 | 20 e3 4a 3d 31 b8 50 51 |()=0..l6| .J=1.PQ|
|000018c0| 3a 53 50 28 4a 29 3d 48 | 53 53 28 61 25 21 28 4a |:SP(J)=H|SS(a%!(J|
|000018d0| 2a 38 2d 34 29 29 3a ed | 3a 48 53 53 28 29 3d 53 |*8-4)):.|:HSS()=S|
|000018e0| 50 28 29 3a 53 50 28 29 | 3d 30 0d 07 76 36 20 e3 |P():SP()|=0..v6 .|
|000018f0| 4a 3d 31 b8 50 51 3a 53 | 50 28 4a 29 3d 48 53 52 |J=1.PQ:S|P(J)=HSR|
|00001900| 28 61 25 21 28 4a 2a 38 | 2d 34 29 29 3a ed 3a 48 |(a%!(J*8|-4)):.:H|
|00001910| 53 52 28 29 3d 53 50 28 | 29 3a 53 50 28 29 3d 30 |SR()=SP(|):SP()=0|
|00001920| 0d 07 80 40 20 e3 4a 3d | 31 b8 50 51 3a 53 50 28 |...@ .J=|1.PQ:SP(|
|00001930| 4a 29 3d 41 5a 73 75 6e | 73 65 74 28 61 25 21 28 |J)=AZsun|set(a%!(|
|00001940| 4a 2a 38 2d 34 29 29 3a | ed 3a 41 5a 73 75 6e 73 |J*8-4)):|.:AZsuns|
|00001950| 65 74 28 29 3d 53 50 28 | 29 3a 53 50 28 29 3d 30 |et()=SP(|):SP()=0|
|00001960| 0d 07 8a 44 20 e3 4a 3d | 31 b8 50 51 3a 53 50 28 |...D .J=|1.PQ:SP(|
|00001970| 4a 29 3d 41 5a 6d 69 64 | 6e 69 67 68 74 28 61 25 |J)=AZmid|night(a%|
|00001980| 21 28 4a 2a 38 2d 34 29 | 29 3a ed 3a 41 5a 6d 69 |!(J*8-4)|):.:AZmi|
|00001990| 64 6e 69 67 68 74 28 29 | 3d 53 50 28 29 3a 53 50 |dnight()|=SP():SP|
|000019a0| 28 29 3d 30 0d 07 94 42 | 20 e3 4a 3d 31 b8 50 51 |()=0...B| .J=1.PQ|
|000019b0| 3a 53 50 28 4a 29 3d 41 | 5a 73 75 6e 72 69 73 65 |:SP(J)=A|Zsunrise|
|000019c0| 28 61 25 21 28 4a 2a 38 | 2d 34 29 29 3a ed 3a 41 |(a%!(J*8|-4)):.:A|
|000019d0| 5a 73 75 6e 72 69 73 65 | 28 29 3d 53 50 28 29 3a |Zsunrise|()=SP():|
|000019e0| 53 50 28 29 3d 30 0d 07 | 9e 42 20 e3 4a 3d 31 b8 |SP()=0..|.B .J=1.|
|000019f0| 50 51 3a 53 50 28 4a 29 | 3d 41 4c 54 73 75 6e 73 |PQ:SP(J)|=ALTsuns|
|00001a00| 65 74 28 61 25 21 28 4a | 2a 38 2d 34 29 29 3a ed |et(a%!(J|*8-4)):.|
|00001a10| 3a 41 4c 54 73 75 6e 73 | 65 74 28 29 3d 53 50 28 |:ALTsuns|et()=SP(|
|00001a20| 29 3a 53 50 28 29 3d 30 | 0d 07 a8 46 20 e3 4a 3d |):SP()=0|...F .J=|
|00001a30| 31 b8 50 51 3a 53 50 28 | 4a 29 3d 41 4c 54 6d 69 |1.PQ:SP(|J)=ALTmi|
|00001a40| 64 6e 69 67 68 74 28 61 | 25 21 28 4a 2a 38 2d 34 |dnight(a|%!(J*8-4|
|00001a50| 29 29 3a ed 3a 41 4c 54 | 6d 69 64 6e 69 67 68 74 |)):.:ALT|midnight|
|00001a60| 28 29 3d 53 50 28 29 3a | 53 50 28 29 3d 30 0d 07 |()=SP():|SP()=0..|
|00001a70| b2 44 20 e3 4a 3d 31 b8 | 50 51 3a 53 50 28 4a 29 |.D .J=1.|PQ:SP(J)|
|00001a80| 3d 41 4c 54 73 75 6e 72 | 69 73 65 28 61 25 21 28 |=ALTsunr|ise(a%!(|
|00001a90| 4a 2a 38 2d 34 29 29 3a | ed 3a 41 4c 54 73 75 6e |J*8-4)):|.:ALTsun|
|00001aa0| 72 69 73 65 28 29 3d 53 | 50 28 29 3a 53 50 28 29 |rise()=S|P():SP()|
|00001ab0| 3d 30 0d 07 bc 06 20 3a | 0d 07 c6 47 20 44 4a 44 |=0.... :|...G DJD|
|00001ac0| 3d 44 41 54 45 28 31 29 | 3a 46 4c 41 47 28 32 29 |=DATE(1)|:FLAG(2)|
|00001ad0| 3d 30 3a f2 43 61 6c 64 | 61 79 3a f4 20 20 20 20 |=0:.Cald|ay:. |
|00001ae0| 44 61 74 65 20 6f 66 20 | 6d 69 6e 20 64 69 73 74 |Date of |min dist|
|00001af0| 61 6e 63 65 20 66 72 6f | 6d 20 45 61 72 74 68 0d |ance fro|m Earth.|
|00001b00| 07 d0 1f 20 58 44 3d 44 | 59 3a 58 4d 3d 4d 4e 3a |... XD=D|Y:XM=MN:|
|00001b10| 58 53 3d 59 52 3a f2 53 | 74 72 69 6e 67 73 0d 07 |XS=YR:.S|trings..|
|00001b20| da 25 20 44 59 6d 69 6e | 24 3d 58 44 24 3a 4d 4e |.% DYmin|$=XD$:MN|
|00001b30| 6d 69 6e 24 3d 58 4d 24 | 3a 59 52 6d 69 6e 24 3d |min$=XM$|:YRmin$=|
|00001b40| 58 53 24 0d 07 e4 06 20 | 3a 0d 07 ee 47 20 44 4a |XS$.... |:...G DJ|
|00001b50| 44 3d 44 41 54 45 28 50 | 51 29 3a 46 4c 41 47 28 |D=DATE(P|Q):FLAG(|
|00001b60| 32 29 3d 30 3a f2 43 61 | 6c 64 61 79 3a f4 20 20 |2)=0:.Ca|lday:. |
|00001b70| 20 44 61 74 65 20 6f 66 | 20 6d 61 78 20 64 69 73 | Date of| max dis|
|00001b80| 74 61 6e 63 65 20 66 72 | 6f 6d 20 45 61 72 74 68 |tance fr|om Earth|
|00001b90| 0d 07 f8 1f 20 58 44 3d | 44 59 3a 58 4d 3d 4d 4e |.... XD=|DY:XM=MN|
|00001ba0| 3a 58 53 3d 59 52 3a f2 | 53 74 72 69 6e 67 73 0d |:XS=YR:.|Strings.|
|00001bb0| 08 02 25 20 44 59 6d 61 | 78 24 3d 58 44 24 3a 4d |..% DYma|x$=XD$:M|
|00001bc0| 4e 6d 61 78 24 3d 58 4d | 24 3a 59 52 6d 61 78 24 |Nmax$=XM|$:YRmax$|
|00001bd0| 3d 58 53 24 0d 08 0c 06 | 20 3a 0d 08 16 25 20 58 |=XS$....| :...% X|
|00001be0| 3d 48 53 52 28 50 51 29 | 3a 53 57 31 3d 31 3a f2 |=HSR(PQ)|:SW1=1:.|
|00001bf0| 4d 69 6e 73 65 63 3a f2 | 53 74 72 69 6e 67 73 0d |Minsec:.|Strings.|
|00001c00| 08 20 4a 20 48 52 24 3d | 58 44 24 3a 4d 52 24 3d |. J HR$=|XD$:MR$=|
|00001c10| 58 4d 24 3a 53 52 24 3d | 58 53 24 3a f4 20 20 20 |XM$:SR$=|XS$:. |
|00001c20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001c30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001c40| 20 20 53 75 6e 72 69 73 | 65 0d 08 2a 25 20 58 3d | Sunris|e..*% X=|
|00001c50| 48 53 53 28 50 51 29 3a | 53 57 31 3d 31 3a f2 4d |HSS(PQ):|SW1=1:.M|
|00001c60| 69 6e 73 65 63 3a f2 53 | 74 72 69 6e 67 73 0d 08 |insec:.S|trings..|
|00001c70| 34 4a 20 48 53 24 3d 58 | 44 24 3a 4d 53 24 3d 58 |4J HS$=X|D$:MS$=X|
|00001c80| 4d 24 3a 53 53 24 3d 58 | 53 24 3a f4 20 20 20 20 |M$:SS$=X|S$:. |
|00001c90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001ca0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001cb0| 20 20 53 75 6e 73 65 74 | 0d 08 3e 06 20 3a 0d 08 | Sunset|..>. :..|
|00001cc0| 48 2b 20 58 3d 41 5a 73 | 75 6e 72 69 73 65 28 50 |H+ X=AZs|unrise(P|
|00001cd0| 51 29 3a 53 57 31 3d 31 | 3a f2 4d 69 6e 73 65 63 |Q):SW1=1|:.Minsec|
|00001ce0| 3a f2 53 74 72 69 6e 67 | 73 0d 08 52 35 20 41 5a |:.String|s..R5 AZ|
|00001cf0| 78 64 48 53 52 6d 61 78 | 24 3d 58 44 24 3a 41 5a |xdHSRmax|$=XD$:AZ|
|00001d00| 78 6d 48 53 52 6d 61 78 | 24 3d 58 4d 24 3a 41 5a |xmHSRmax|$=XM$:AZ|
|00001d10| 73 65 63 48 53 52 6d 61 | 78 24 3d 58 53 24 0d 08 |secHSRma|x$=XS$..|
|00001d20| 5c 2c 20 58 3d 41 4c 54 | 73 75 6e 72 69 73 65 28 |\, X=ALT|sunrise(|
|00001d30| 50 51 29 3a 53 57 31 3d | 31 3a f2 4d 69 6e 73 65 |PQ):SW1=|1:.Minse|
|00001d40| 63 3a f2 53 74 72 69 6e | 67 73 0d 08 66 41 20 53 |c:.Strin|gs..fA S|
|00001d50| 48 53 52 24 3d 53 24 3a | 41 4c 54 78 64 48 53 52 |HSR$=S$:|ALTxdHSR|
|00001d60| 6d 61 78 24 3d 58 44 24 | 3a 41 4c 54 78 6d 48 53 |max$=XD$|:ALTxmHS|
|00001d70| 52 6d 61 78 24 3d 58 4d | 24 3a 41 4c 54 73 65 63 |Rmax$=XM|$:ALTsec|
|00001d80| 48 53 52 6d 61 78 24 3d | 58 53 24 0d 08 70 2a 20 |HSRmax$=|XS$..p* |
|00001d90| 58 3d 41 5a 73 75 6e 73 | 65 74 28 50 51 29 3a 53 |X=AZsuns|et(PQ):S|
|00001da0| 57 31 3d 31 3a f2 4d 69 | 6e 73 65 63 3a f2 53 74 |W1=1:.Mi|nsec:.St|
|00001db0| 72 69 6e 67 73 0d 08 7a | 35 20 41 5a 78 64 48 53 |rings..z|5 AZxdHS|
|00001dc0| 53 6d 61 78 24 3d 58 44 | 24 3a 41 5a 78 6d 48 53 |Smax$=XD|$:AZxmHS|
|00001dd0| 53 6d 61 78 24 3d 58 4d | 24 3a 41 5a 73 65 63 48 |Smax$=XM|$:AZsecH|
|00001de0| 53 53 6d 61 78 24 3d 58 | 53 24 0d 08 84 2b 20 58 |SSmax$=X|S$...+ X|
|00001df0| 3d 41 4c 54 73 75 6e 73 | 65 74 28 50 51 29 3a 53 |=ALTsuns|et(PQ):S|
|00001e00| 57 31 3d 31 3a f2 4d 69 | 6e 73 65 63 3a f2 53 74 |W1=1:.Mi|nsec:.St|
|00001e10| 72 69 6e 67 73 0d 08 8e | 41 20 53 48 53 53 24 3d |rings...|A SHSS$=|
|00001e20| 53 24 3a 41 4c 54 78 64 | 48 53 53 6d 61 78 24 3d |S$:ALTxd|HSSmax$=|
|00001e30| 58 44 24 3a 41 4c 54 78 | 6d 48 53 53 6d 61 78 24 |XD$:ALTx|mHSSmax$|
|00001e40| 3d 58 4d 24 3a 41 4c 54 | 73 65 63 48 53 53 6d 61 |=XM$:ALT|secHSSma|
|00001e50| 78 24 3d 58 53 24 0d 08 | 98 06 20 3a 0d 08 a2 10 |x$=XS$..|.. :....|
|00001e60| 20 f2 45 6c 6f 6e 67 61 | 74 69 6f 6e 0d 08 ac 06 | .Elonga|tion....|
|00001e70| 20 3a 0d 08 b6 39 20 e3 | 4a 3d 31 b8 50 51 3a 61 | :...9 .|J=1.PQ:a|
|00001e80| 25 21 28 4a 2a 38 29 3d | a8 28 41 4c 54 73 75 6e |%!(J*8)=|.(ALTsun|
|00001e90| 72 69 73 65 28 4a 29 2a | 31 45 36 29 3a 61 25 21 |rise(J)*|1E6):a%!|
|00001ea0| 28 4a 2a 38 2d 34 29 3d | 4a 3a ed 0d 08 c0 0a 20 |(J*8-4)=|J:..... |
|00001eb0| 41 25 3d 61 25 0d 08 ca | 09 20 42 25 3d 31 0d 08 |A%=a%...|. B%=1..|
|00001ec0| d4 0a 20 43 25 3d 50 51 | 0d 08 de 46 20 d6 20 71 |.. C%=PQ|...F . q|
|00001ed0| 73 6f 72 74 3a f4 20 20 | 20 20 20 20 20 20 20 20 |sort:. | |
|00001ee0| 20 20 20 20 20 20 53 6f | 72 74 69 6e 67 20 62 79 | So|rting by|
|00001ef0| 20 61 6c 74 69 74 75 64 | 65 20 6f 66 20 70 6c 61 | altitud|e of pla|
|00001f00| 6e 65 74 20 61 74 20 73 | 75 6e 72 69 73 65 0d 08 |net at s|unrise..|
|00001f10| e8 06 20 3a 0d 08 f2 29 | 20 e3 4a 3d 31 b8 50 51 |.. :...)| .J=1.PQ|
|00001f20| 3a 41 4c 54 73 75 6e 72 | 69 73 65 28 4a 29 3d 61 |:ALTsunr|ise(J)=a|
|00001f30| 25 21 28 4a 2a 38 29 2f | 31 45 36 3a ed 0d 08 fc |%!(J*8)/|1E6:....|
|00001f40| 38 20 e3 4a 3d 31 b8 50 | 51 3a 53 50 28 4a 29 3d |8 .J=1.P|Q:SP(J)=|
|00001f50| 52 48 4f 30 28 61 25 21 | 28 4a 2a 38 2d 34 29 29 |RHO0(a%!|(J*8-4))|
|00001f60| 3a ed 3a 52 48 4f 30 28 | 29 3d 53 50 28 29 3a 53 |:.:RHO0(|)=SP():S|
|00001f70| 50 28 29 3d 30 0d 09 06 | 46 20 e3 4a 3d 31 b8 50 |P()=0...|F .J=1.P|
|00001f80| 51 3a 53 50 28 4a 29 3d | 41 4c 54 6d 69 64 6e 69 |Q:SP(J)=|ALTmidni|
|00001f90| 67 68 74 28 61 25 21 28 | 4a 2a 38 2d 34 29 29 3a |ght(a%!(|J*8-4)):|
|00001fa0| ed 3a 41 4c 54 6d 69 64 | 6e 69 67 68 74 28 29 3d |.:ALTmid|night()=|
|00001fb0| 53 50 28 29 3a 53 50 28 | 29 3d 30 0d 09 10 38 20 |SP():SP(|)=0...8 |
|00001fc0| e3 4a 3d 31 b8 50 51 3a | 53 50 28 4a 29 3d 44 41 |.J=1.PQ:|SP(J)=DA|
|00001fd0| 54 45 28 61 25 21 28 4a | 2a 38 2d 34 29 29 3a ed |TE(a%!(J|*8-4)):.|
|00001fe0| 3a 44 41 54 45 28 29 3d | 53 50 28 29 3a 53 50 28 |:DATE()=|SP():SP(|
|00001ff0| 29 3d 30 0d 09 1a 42 20 | e3 4a 3d 31 b8 50 51 3a |)=0...B |.J=1.PQ:|
|00002000| 53 50 28 4a 29 3d 41 5a | 73 75 6e 72 69 73 65 28 |SP(J)=AZ|sunrise(|
|00002010| 61 25 21 28 4a 2a 38 2d | 34 29 29 3a ed 3a 41 5a |a%!(J*8-|4)):.:AZ|
|00002020| 73 75 6e 72 69 73 65 28 | 29 3d 53 50 28 29 3a 53 |sunrise(|)=SP():S|
|00002030| 50 28 29 3d 30 0d 09 24 | 36 20 e3 4a 3d 31 b8 50 |P()=0..$|6 .J=1.P|
|00002040| 51 3a 53 50 28 4a 29 3d | 48 53 52 28 61 25 21 28 |Q:SP(J)=|HSR(a%!(|
|00002050| 4a 2a 38 2d 34 29 29 3a | ed 3a 48 53 52 28 29 3d |J*8-4)):|.:HSR()=|
|00002060| 53 50 28 29 3a 53 50 28 | 29 3d 30 0d 09 2e 36 20 |SP():SP(|)=0...6 |
|00002070| e3 4a 3d 31 b8 50 51 3a | 53 50 28 4a 29 3d 4c 41 |.J=1.PQ:|SP(J)=LA|
|00002080| 4d 28 61 25 21 28 4a 2a | 38 2d 34 29 29 3a ed 3a |M(a%!(J*|8-4)):.:|
|00002090| 4c 41 4d 28 29 3d 53 50 | 28 29 3a 53 50 28 29 3d |LAM()=SP|():SP()=|
|000020a0| 30 0d 09 38 36 20 e3 4a | 3d 31 b8 50 51 3a 53 50 |0..86 .J|=1.PQ:SP|
|000020b0| 28 4a 29 3d 42 45 54 28 | 61 25 21 28 4a 2a 38 2d |(J)=BET(|a%!(J*8-|
|000020c0| 34 29 29 3a ed 3a 42 45 | 54 28 29 3d 53 50 28 29 |4)):.:BE|T()=SP()|
|000020d0| 3a 53 50 28 29 3d 30 0d | 09 42 06 20 3a 0d 09 4c |:SP()=0.|.B. :..L|
|000020e0| 17 20 50 51 53 3d 41 4c | 54 73 75 6e 72 69 73 65 |. PQS=AL|Tsunrise|
|000020f0| 28 50 51 29 0d 09 56 06 | 20 3a 0d 09 60 17 20 46 |(PQ)..V.| :..`. F|
|00002100| 4c 41 47 28 29 3d 30 3a | 46 4c 41 47 28 30 29 3d |LAG()=0:|FLAG(0)=|
|00002110| 31 0d 09 6a 06 20 3a 0d | 09 74 25 20 44 4a 44 3d |1..j. :.|.t% DJD=|
|00002120| 44 41 54 45 28 50 51 29 | 3a 54 49 4d 3d 48 53 52 |DATE(PQ)|:TIM=HSR|
|00002130| 28 50 51 29 2d 31 3a 53 | 57 32 3d 31 0d 09 7e 1b |(PQ)-1:S|W2=1..~.|
|00002140| 20 f2 43 61 6c 64 61 79 | 3a f2 47 74 69 6d 65 3a | .Calday|:.Gtime:|
|00002150| 47 53 54 3d 47 54 4d 0d | 09 88 1f 20 58 44 3d 44 |GST=GTM.|... XD=D|
|00002160| 59 3a 58 4d 3d 4d 4e 3a | 58 53 3d 59 52 3a f2 53 |Y:XM=MN:|XS=YR:.S|
|00002170| 74 72 69 6e 67 73 0d 09 | 92 1c 20 44 59 24 3d 58 |trings..|.. DY$=X|
|00002180| 44 24 3a 4d 4e 24 3d 58 | 4d 24 3a 59 52 24 3d 58 |D$:MN$=X|M$:YR$=X|
|00002190| 53 24 0d 09 9c 1e 20 58 | 3d a4 44 45 47 28 4c 41 |S$.... X|=.DEG(LA|
|000021a0| 4d 28 50 51 29 2f 31 35 | 29 3a f2 48 72 61 6e 67 |M(PQ)/15|):.Hrang|
|000021b0| 0d 09 a6 22 20 58 3d a4 | 52 41 44 28 50 29 2a 31 |..." X=.|RAD(P)*1|
|000021c0| 35 3a 59 3d 42 45 54 28 | 50 51 29 3a f2 45 71 68 |5:Y=BET(|PQ):.Eqh|
|000021d0| 6f 72 0d 09 b0 1a 20 58 | 52 3d a4 44 45 47 28 50 |or.... X|R=.DEG(P|
|000021e0| 29 3a 51 52 3d a4 44 45 | 47 28 51 29 0d 09 ba 06 |):QR=.DE|G(Q)....|
|000021f0| 20 3a 0d 09 c4 18 20 e7 | 41 4c 54 73 75 6e 72 69 | :.... .|ALTsunri|
|00002200| 73 65 28 50 51 29 3e 30 | 20 8c 0d 09 ce 41 20 f1 |se(PQ)>0| ....A .|
|00002210| 8a 31 32 29 3b 22 4d 61 | 78 20 61 6c 74 69 74 75 |.12);"Ma|x altitu|
|00002220| 64 65 20 61 74 20 73 75 | 6e 72 69 73 65 20 64 75 |de at su|nrise du|
|00002230| 72 69 6e 67 20 74 68 65 | 20 22 3b 50 51 3b 22 20 |ring the| ";PQ;" |
|00002240| 64 61 79 20 70 65 72 69 | 6f 64 22 0d 09 d8 06 20 |day peri|od".... |
|00002250| f1 0d 09 e2 06 20 3a 0d | 09 ec 19 20 e3 4a 3d 50 |..... :.|... .J=P|
|00002260| 51 20 b8 20 41 4c 54 74 | 61 62 6c 65 20 88 2d 31 |Q . ALTt|able .-1|
|00002270| 0d 09 f6 3d 20 46 4c 41 | 47 28 32 29 3d 30 3a 44 |...= FLA|G(2)=0:D|
|00002280| 4a 44 3d 44 41 54 45 28 | 4a 29 3a f2 43 61 6c 64 |JD=DATE(|J):.Cald|
|00002290| 61 79 3a 58 44 3d 44 59 | 3a 58 4d 3d 4d 4e 3a 58 |ay:XD=DY|:XM=MN:X|
|000022a0| 53 3d 59 52 3a f2 53 74 | 72 69 6e 67 73 0d 0a 00 |S=YR:.St|rings...|
|000022b0| 1c 20 44 59 24 3d 58 44 | 24 3a 4d 4e 24 3d 58 4d |. DY$=XD|$:MN$=XM|
|000022c0| 24 3a 59 52 24 3d 58 53 | 24 0d 0a 0a 24 20 53 57 |$:YR$=XS|$...$ SW|
|000022d0| 31 3d 31 3a 58 3d 48 53 | 52 28 4a 29 3a f2 4d 69 |1=1:X=HS|R(J):.Mi|
|000022e0| 6e 73 65 63 3a f2 53 74 | 72 69 6e 67 73 0d 0a 14 |nsec:.St|rings...|
|000022f0| 56 20 f1 8a 39 29 3b 22 | 50 6c 61 6e 65 74 20 61 |V ..9);"|Planet a|
|00002300| 6c 74 69 74 75 64 65 20 | 61 74 20 22 3b 58 44 24 |ltitude |at ";XD$|
|00002310| 3b 22 3a 22 3b 58 4d 24 | 3b 22 3a 22 3b 58 53 24 |;":";XM$|;":";XS$|
|00002320| 3b 22 20 6f 6e 20 22 3b | 44 59 24 3b 22 2f 22 3b |;" on ";|DY$;"/";|
|00002330| 4d 4e 24 3b 22 2f 22 3b | 59 52 24 3b 22 20 69 73 |MN$;"/";|YR$;" is|
|00002340| 20 22 3b 0d 0a 1e 45 20 | 53 57 31 3d 31 3a 58 3d | ";...E |SW1=1:X=|
|00002350| 41 4c 54 73 75 6e 72 69 | 73 65 28 4a 29 3a f2 4d |ALTsunri|se(J):.M|
|00002360| 69 6e 73 65 63 3a f2 53 | 74 72 69 6e 67 73 3a f1 |insec:.S|trings:.|
|00002370| 89 28 32 29 3b 58 44 24 | 3b 22 2c 22 3b 58 4d 24 |.(2);XD$|;",";XM$|
|00002380| 3b 22 2c 22 3b 58 53 24 | 0d 0a 28 25 20 f1 8a 33 |;",";XS$|..(% ..3|
|00002390| 31 29 3b 22 20 2e 2e 2e | 61 6e 64 20 74 68 65 20 |1);" ...|and the |
|000023a0| 61 7a 69 6d 75 74 68 20 | 69 73 20 22 3b 0d 0a 32 |azimuth |is ";..2|
|000023b0| 4f 20 53 57 31 3d 31 3a | 58 3d 41 5a 73 75 6e 72 |O SW1=1:|X=AZsunr|
|000023c0| 69 73 65 28 4a 29 3a f2 | 4d 69 6e 73 65 63 3a f2 |ise(J):.|Minsec:.|
|000023d0| 53 74 72 69 6e 67 73 3a | f1 89 28 32 2d 28 a9 28 |Strings:|..(2-(.(|
|000023e0| 58 44 24 29 2d 32 29 29 | 3b 58 44 24 3b 22 2c 22 |XD$)-2))|;XD$;","|
|000023f0| 3b 58 4d 24 3b 22 2c 22 | 3b 58 53 24 0d 0a 3c 06 |;XM$;","|;XS$..<.|
|00002400| 20 f1 0d 0a 46 08 20 ed | 20 4a 0d 0a 50 3e 20 46 | ...F. .| J..P> F|
|00002410| 4c 41 47 28 32 29 3d 30 | 3a 44 4a 44 3d 44 41 54 |LAG(2)=0|:DJD=DAT|
|00002420| 45 28 50 51 29 3a f2 43 | 61 6c 64 61 79 3a 58 44 |E(PQ):.C|alday:XD|
|00002430| 3d 44 59 3a 58 4d 3d 4d | 4e 3a 58 53 3d 59 52 3a |=DY:XM=M|N:XS=YR:|
|00002440| f2 53 74 72 69 6e 67 73 | 0d 0a 5a 1c 20 44 59 24 |.Strings|..Z. DY$|
|00002450| 3d 58 44 24 3a 4d 4e 24 | 3d 58 4d 24 3a 59 52 24 |=XD$:MN$|=XM$:YR$|
|00002460| 3d 58 53 24 0d 0a 64 4b | 20 f1 27 8a 36 29 3b 22 |=XS$..dK| .'.6);"|
|00002470| 41 6c 74 69 74 75 64 65 | 20 31 20 68 6f 75 72 20 |Altitude| 1 hour |
|00002480| 62 65 66 6f 72 65 20 73 | 75 6e 72 69 73 65 20 6f |before s|unrise o|
|00002490| 6e 20 22 3b 44 59 24 3b | 22 2f 22 3b 4d 4e 24 3b |n ";DY$;|"/";MN$;|
|000024a0| 22 2f 22 3b 59 52 24 3b | 22 20 69 73 20 22 3b 0d |"/";YR$;|" is ";.|
|000024b0| 0a 6e 28 20 53 57 31 3d | 31 3a 58 3d 51 52 3a 58 |.n( SW1=|1:X=QR:X|
|000024c0| 43 24 3d 22 2c 22 3a f2 | 4d 69 6e 73 65 63 3a f2 |C$=",":.|Minsec:.|
|000024d0| 53 74 72 69 6e 67 73 0d | 0a 78 3c 20 e7 20 53 24 |Strings.|.x< . S$|
|000024e0| 3d 22 2d 22 20 8c 20 58 | 44 24 3d 22 62 65 6c 6f |="-" . X|D$="belo|
|000024f0| 77 20 74 68 65 20 68 6f | 72 69 7a 6f 6e 22 3a 58 |w the ho|rizon":X|
|00002500| 4d 24 3d 22 22 3a 58 53 | 24 3d 22 22 3a 58 43 24 |M$="":XS|$="":XC$|
|00002510| 3d 22 22 0d 0a 82 1e 20 | f1 89 28 32 29 3b 58 44 |="".... |..(2);XD|
|00002520| 24 3b 58 43 24 3b 58 4d | 24 3b 58 43 24 3b 58 53 |$;XC$;XM|$;XC$;XS|
|00002530| 24 0d 0a 8c 20 20 53 57 | 31 3d 31 3a 58 3d 58 52 |$... SW|1=1:X=XR|
|00002540| 3a f2 4d 69 6e 73 65 63 | 3a f2 53 74 72 69 6e 67 |:.Minsec|:.String|
|00002550| 73 0d 0a 96 25 20 f1 8a | 33 31 29 3b 22 20 2e 2e |s...% ..|31);" ..|
|00002560| 2e 61 6e 64 20 74 68 65 | 20 61 7a 69 6d 75 74 68 |.and the| azimuth|
|00002570| 20 69 73 20 22 3b 0d 0a | a0 29 20 f1 89 28 32 2d | is ";..|.) ..(2-|
|00002580| 28 a9 28 58 44 24 29 2d | 32 29 29 3b 58 44 24 3b |(.(XD$)-|2));XD$;|
|00002590| 22 2c 22 3b 58 4d 24 3b | 22 2c 22 3b 58 53 24 0d |",";XM$;|",";XS$.|
|000025a0| 0a aa 06 20 cd 0d 0a b4 | 06 20 f1 0d 0a be 06 20 |... ....|. ..... |
|000025b0| 3a 0d 0a c8 38 20 e3 4a | 3d 31 b8 50 51 3a 61 25 |:...8 .J|=1.PQ:a%|
|000025c0| 21 28 4a 2a 38 29 3d a8 | 28 41 4c 54 73 75 6e 73 |!(J*8)=.|(ALTsuns|
|000025d0| 65 74 28 4a 29 2a 31 45 | 36 29 3a 61 25 21 28 4a |et(J)*1E|6):a%!(J|
|000025e0| 2a 38 2d 34 29 3d 4a 3a | ed 0d 0a d2 0a 20 41 25 |*8-4)=J:|..... A%|
|000025f0| 3d 61 25 0d 0a dc 09 20 | 42 25 3d 31 0d 0a e6 0a |=a%.... |B%=1....|
|00002600| 20 43 25 3d 50 51 0d 0a | f0 47 20 d6 20 71 73 6f | C%=PQ..|.G . qso|
|00002610| 72 74 3a f4 20 20 20 20 | 20 20 20 20 20 20 20 20 |rt:. | |
|00002620| 20 20 20 20 20 20 53 6f | 72 74 69 6e 67 20 62 79 | So|rting by|
|00002630| 20 61 6c 74 69 74 75 64 | 65 20 6f 66 20 70 6c 61 | altitud|e of pla|
|00002640| 6e 65 74 20 61 74 20 73 | 75 6e 73 65 74 0d 0a fa |net at s|unset...|
|00002650| 06 20 3a 0d 0b 04 28 20 | e3 4a 3d 31 b8 50 51 3a |. :...( |.J=1.PQ:|
|00002660| 41 4c 54 73 75 6e 73 65 | 74 28 4a 29 3d 61 25 21 |ALTsunse|t(J)=a%!|
|00002670| 28 4a 2a 38 29 2f 31 45 | 36 3a ed 0d 0b 0e 3a 20 |(J*8)/1E|6:....: |
|00002680| e3 4a 3d 31 b8 50 51 3a | 53 50 28 4a 29 3d 44 41 |.J=1.PQ:|SP(J)=DA|
|00002690| 54 45 41 28 61 25 21 28 | 4a 2a 38 2d 34 29 29 3a |TEA(a%!(|J*8-4)):|
|000026a0| ed 3a 44 41 54 45 41 28 | 29 3d 53 50 28 29 3a 53 |.:DATEA(|)=SP():S|
|000026b0| 50 28 29 3d 30 0d 0b 18 | 40 20 e3 4a 3d 31 b8 50 |P()=0...|@ .J=1.P|
|000026c0| 51 3a 53 50 28 4a 29 3d | 41 5a 73 75 6e 73 65 74 |Q:SP(J)=|AZsunset|
|000026d0| 28 61 25 21 28 4a 2a 38 | 2d 34 29 29 3a ed 3a 41 |(a%!(J*8|-4)):.:A|
|000026e0| 5a 73 75 6e 73 65 74 28 | 29 3d 53 50 28 29 3a 53 |Zsunset(|)=SP():S|
|000026f0| 50 28 29 3d 30 0d 0b 22 | 36 20 e3 4a 3d 31 b8 50 |P()=0.."|6 .J=1.P|
|00002700| 51 3a 53 50 28 4a 29 3d | 48 53 53 28 61 25 21 28 |Q:SP(J)=|HSS(a%!(|
|00002710| 4a 2a 38 2d 34 29 29 3a | ed 3a 48 53 53 28 29 3d |J*8-4)):|.:HSS()=|
|00002720| 53 50 28 29 3a 53 50 28 | 29 3d 30 0d 0b 2c 38 20 |SP():SP(|)=0..,8 |
|00002730| e3 4a 3d 31 b8 50 51 3a | 53 50 28 4a 29 3d 4c 41 |.J=1.PQ:|SP(J)=LA|
|00002740| 4d 42 28 61 25 21 28 4a | 2a 38 2d 34 29 29 3a ed |MB(a%!(J|*8-4)):.|
|00002750| 3a 4c 41 4d 42 28 29 3d | 53 50 28 29 3a 53 50 28 |:LAMB()=|SP():SP(|
|00002760| 29 3d 30 0d 0b 36 38 20 | e3 4a 3d 31 b8 50 51 3a |)=0..68 |.J=1.PQ:|
|00002770| 53 50 28 4a 29 3d 42 45 | 54 42 28 61 25 21 28 4a |SP(J)=BE|TB(a%!(J|
|00002780| 2a 38 2d 34 29 29 3a ed | 3a 42 45 54 42 28 29 3d |*8-4)):.|:BETB()=|
|00002790| 53 50 28 29 3a 53 50 28 | 29 3d 30 0d 0b 40 06 20 |SP():SP(|)=0..@. |
|000027a0| 3a 0d 0b 4a 2b 20 e7 20 | 41 4c 54 73 75 6e 73 65 |:..J+ . |ALTsunse|
|000027b0| 74 28 50 51 29 3e 30 20 | 80 20 41 4c 54 73 75 6e |t(PQ)>0 |. ALTsun|
|000027c0| 72 69 73 65 28 50 51 29 | 3e 30 20 8c 0d 0b 54 54 |rise(PQ)|>0 ...TT|
|000027d0| 20 f1 3a f1 22 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | .:."---|--------|
|000027e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000027f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002800| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002810| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 22 |--------|-------"|
|00002820| 0d 0b 5e 25 20 f1 22 50 | 72 65 73 73 20 6b 65 79 |..^% ."P|ress key|
|00002830| 20 74 6f 20 73 65 65 20 | 53 75 6e 73 65 74 20 74 | to see |Sunset t|
|00002840| 61 62 6c 65 22 0d 0b 68 | 0a 20 6b 65 79 3d a5 0d |able"..h|. key=..|
|00002850| 0b 72 06 20 db 0d 0b 7c | 10 20 f2 45 6c 6f 6e 67 |.r. ...||. .Elong|
|00002860| 61 74 69 6f 6e 0d 0b 86 | 06 20 cd 0d 0b 90 06 20 |ation...|. ..... |
|00002870| 3a 0d 0b 9a 17 20 46 4c | 41 47 28 29 3d 30 3a 46 |:.... FL|AG()=0:F|
|00002880| 4c 41 47 28 30 29 3d 31 | 0d 0b a4 06 20 3a 0d 0b |LAG(0)=1|.... :..|
|00002890| ae 26 20 44 4a 44 3d 44 | 41 54 45 41 28 50 51 29 |.& DJD=D|ATEA(PQ)|
|000028a0| 3a 54 49 4d 3d 48 53 53 | 28 50 51 29 2b 31 3a 53 |:TIM=HSS|(PQ)+1:S|
|000028b0| 57 32 3d 31 0d 0b b8 1b | 20 f2 43 61 6c 64 61 79 |W2=1....| .Calday|
|000028c0| 3a f2 47 74 69 6d 65 3a | 47 53 54 3d 47 54 4d 0d |:.Gtime:|GST=GTM.|
|000028d0| 0b c2 1f 20 58 44 3d 44 | 59 3a 58 4d 3d 4d 4e 3a |... XD=D|Y:XM=MN:|
|000028e0| 58 53 3d 59 52 3a f2 53 | 74 72 69 6e 67 73 0d 0b |XS=YR:.S|trings..|
|000028f0| cc 1c 20 44 59 24 3d 58 | 44 24 3a 4d 4e 24 3d 58 |.. DY$=X|D$:MN$=X|
|00002900| 4d 24 3a 59 52 24 3d 58 | 53 24 0d 0b d6 1f 20 58 |M$:YR$=X|S$.... X|
|00002910| 3d a4 44 45 47 28 4c 41 | 4d 42 28 50 51 29 2f 31 |=.DEG(LA|MB(PQ)/1|
|00002920| 35 29 3a f2 48 72 61 6e | 67 0d 0b e0 23 20 58 3d |5):.Hran|g...# X=|
|00002930| a4 52 41 44 28 50 29 2a | 31 35 3a 59 3d 42 45 54 |.RAD(P)*|15:Y=BET|
|00002940| 42 28 50 51 29 3a f2 45 | 71 68 6f 72 0d 0b ea 1c |B(PQ):.E|qhor....|
|00002950| 20 58 52 53 3d a4 44 45 | 47 28 50 29 3a 51 52 53 | XRS=.DE|G(P):QRS|
|00002960| 3d a4 44 45 47 28 51 29 | 0d 0b f4 06 20 3a 0d 0b |=.DEG(Q)|.... :..|
|00002970| fe 17 20 e7 41 4c 54 73 | 75 6e 73 65 74 28 50 51 |.. .ALTs|unset(PQ|
|00002980| 29 3e 30 20 8c 0d 0c 08 | 40 20 f1 8a 31 32 29 3b |)>0 ....|@ ..12);|
|00002990| 22 4d 61 78 20 61 6c 74 | 69 74 75 64 65 20 61 74 |"Max alt|itude at|
|000029a0| 20 73 75 6e 73 65 74 20 | 64 75 72 69 6e 67 20 74 | sunset |during t|
|000029b0| 68 65 20 22 3b 50 51 3b | 22 20 64 61 79 20 70 65 |he ";PQ;|" day pe|
|000029c0| 72 69 6f 64 22 0d 0c 12 | 06 20 f1 0d 0c 1c 06 20 |riod"...|. ..... |
|000029d0| 3a 0d 0c 26 19 20 e3 4a | 3d 50 51 20 b8 20 41 4c |:..&. .J|=PQ . AL|
|000029e0| 54 74 61 62 6c 65 20 88 | 2d 31 0d 0c 30 3e 20 46 |Ttable .|-1..0> F|
|000029f0| 4c 41 47 28 32 29 3d 30 | 3a 44 4a 44 3d 44 41 54 |LAG(2)=0|:DJD=DAT|
|00002a00| 45 41 28 4a 29 3a f2 43 | 61 6c 64 61 79 3a 58 44 |EA(J):.C|alday:XD|
|00002a10| 3d 44 59 3a 58 4d 3d 4d | 4e 3a 58 53 3d 59 52 3a |=DY:XM=M|N:XS=YR:|
|00002a20| f2 53 74 72 69 6e 67 73 | 0d 0c 3a 1c 20 44 59 24 |.Strings|..:. DY$|
|00002a30| 3d 58 44 24 3a 4d 4e 24 | 3d 58 4d 24 3a 59 52 24 |=XD$:MN$|=XM$:YR$|
|00002a40| 3d 58 53 24 0d 0c 44 24 | 20 53 57 31 3d 31 3a 58 |=XS$..D$| SW1=1:X|
|00002a50| 3d 48 53 53 28 4a 29 3a | f2 4d 69 6e 73 65 63 3a |=HSS(J):|.Minsec:|
|00002a60| f2 53 74 72 69 6e 67 73 | 0d 0c 4e 56 20 f1 8a 39 |.Strings|..NV ..9|
|00002a70| 29 3b 22 50 6c 61 6e 65 | 74 20 61 6c 74 69 74 75 |);"Plane|t altitu|
|00002a80| 64 65 20 61 74 20 22 3b | 58 44 24 3b 22 3a 22 3b |de at ";|XD$;":";|
|00002a90| 58 4d 24 3b 22 3a 22 3b | 58 53 24 3b 22 20 6f 6e |XM$;":";|XS$;" on|
|00002aa0| 20 22 3b 44 59 24 3b 22 | 2f 22 3b 4d 4e 24 3b 22 | ";DY$;"|/";MN$;"|
|00002ab0| 2f 22 3b 59 52 24 3b 22 | 20 69 73 20 22 3b 0d 0c |/";YR$;"| is ";..|
|00002ac0| 58 44 20 53 57 31 3d 31 | 3a 58 3d 41 4c 54 73 75 |XD SW1=1|:X=ALTsu|
|00002ad0| 6e 73 65 74 28 4a 29 3a | f2 4d 69 6e 73 65 63 3a |nset(J):|.Minsec:|
|00002ae0| f2 53 74 72 69 6e 67 73 | 3a f1 89 28 32 29 3b 58 |.Strings|:..(2);X|
|00002af0| 44 24 3b 22 2c 22 3b 58 | 4d 24 3b 22 2c 22 3b 58 |D$;",";X|M$;",";X|
|00002b00| 53 24 0d 0c 62 25 20 f1 | 8a 33 31 29 3b 22 20 2e |S$..b% .|.31);" .|
|00002b10| 2e 2e 61 6e 64 20 74 68 | 65 20 61 7a 69 6d 75 74 |..and th|e azimut|
|00002b20| 68 20 69 73 20 22 3b 0d | 0c 6c 4e 20 53 57 31 3d |h is ";.|.lN SW1=|
|00002b30| 31 3a 58 3d 41 5a 73 75 | 6e 73 65 74 28 4a 29 3a |1:X=AZsu|nset(J):|
|00002b40| f2 4d 69 6e 73 65 63 3a | f2 53 74 72 69 6e 67 73 |.Minsec:|.Strings|
|00002b50| 3a f1 89 28 32 2d 28 a9 | 28 58 44 24 29 2d 32 29 |:..(2-(.|(XD$)-2)|
|00002b60| 29 3b 58 44 24 3b 22 2c | 22 3b 58 4d 24 3b 22 2c |);XD$;",|";XM$;",|
|00002b70| 22 3b 58 53 24 0d 0c 76 | 06 20 f1 0d 0c 80 08 20 |";XS$..v|. ..... |
|00002b80| ed 20 4a 0d 0c 8a 06 20 | 3a 0d 0c 94 3f 20 46 4c |. J.... |:...? FL|
|00002b90| 41 47 28 32 29 3d 30 3a | 44 4a 44 3d 44 41 54 45 |AG(2)=0:|DJD=DATE|
|00002ba0| 41 28 50 51 29 3a f2 43 | 61 6c 64 61 79 3a 58 44 |A(PQ):.C|alday:XD|
|00002bb0| 3d 44 59 3a 58 4d 3d 4d | 4e 3a 58 53 3d 59 52 3a |=DY:XM=M|N:XS=YR:|
|00002bc0| f2 53 74 72 69 6e 67 73 | 0d 0c 9e 1c 20 44 59 24 |.Strings|.... DY$|
|00002bd0| 3d 58 44 24 3a 4d 4e 24 | 3d 58 4d 24 3a 59 52 24 |=XD$:MN$|=XM$:YR$|
|00002be0| 3d 58 53 24 0d 0c a8 49 | 20 f1 27 8a 38 29 3b 22 |=XS$...I| .'.8);"|
|00002bf0| 41 6c 74 69 74 75 64 65 | 20 31 20 68 6f 75 72 20 |Altitude| 1 hour |
|00002c00| 61 66 74 65 72 20 73 75 | 6e 73 65 74 20 6f 6e 20 |after su|nset on |
|00002c10| 22 3b 44 59 24 3b 22 2f | 22 3b 4d 4e 24 3b 22 2f |";DY$;"/|";MN$;"/|
|00002c20| 22 3b 59 52 24 3b 22 20 | 69 73 20 22 3b 0d 0c b2 |";YR$;" |is ";...|
|00002c30| 29 20 53 57 31 3d 31 3a | 58 3d 51 52 53 3a 58 43 |) SW1=1:|X=QRS:XC|
|00002c40| 24 3d 22 2c 22 3a f2 4d | 69 6e 73 65 63 3a f2 53 |$=",":.M|insec:.S|
|00002c50| 74 72 69 6e 67 73 0d 0c | bc 06 20 3a 0d 0c c6 3a |trings..|.. :...:|
|00002c60| 20 e7 53 24 3d 22 2d 22 | 8c 20 58 44 24 3d 22 62 | .S$="-"|. XD$="b|
|00002c70| 65 6c 6f 77 20 74 68 65 | 20 68 6f 72 69 7a 6f 6e |elow the| horizon|
|00002c80| 22 3a 58 4d 24 3d 22 22 | 3a 58 53 24 3d 22 22 3a |":XM$=""|:XS$="":|
|00002c90| 58 43 24 3d 22 22 0d 0c | d0 1e 20 f1 89 28 32 29 |XC$=""..|.. ..(2)|
|00002ca0| 3b 58 44 24 3b 58 43 24 | 3b 58 4d 24 3b 58 43 24 |;XD$;XC$|;XM$;XC$|
|00002cb0| 3b 58 53 24 0d 0c da 21 | 20 53 57 31 3d 31 3a 58 |;XS$...!| SW1=1:X|
|00002cc0| 3d 58 52 53 3a f2 4d 69 | 6e 73 65 63 3a f2 53 74 |=XRS:.Mi|nsec:.St|
|00002cd0| 72 69 6e 67 73 0d 0c e4 | 25 20 f1 8a 33 31 29 3b |rings...|% ..31);|
|00002ce0| 22 20 2e 2e 2e 61 6e 64 | 20 74 68 65 20 61 7a 69 |" ...and| the azi|
|00002cf0| 6d 75 74 68 20 69 73 20 | 22 3b 0d 0c ee 29 20 f1 |muth is |";...) .|
|00002d00| 89 28 32 2d 28 a9 28 58 | 44 24 29 2d 32 29 29 3b |.(2-(.(X|D$)-2));|
|00002d10| 58 44 24 3b 22 2c 22 3b | 58 4d 24 3b 22 2c 22 3b |XD$;",";|XM$;",";|
|00002d20| 58 53 24 0d 0c f8 06 20 | cd 0d 0d 02 06 20 f1 0d |XS$.... |..... ..|
|00002d30| 0d 0c 06 20 3a 0d 0d 16 | 07 20 ef 33 0d 0d 20 06 |... :...|. .3.. .|
|00002d40| 20 3a 0d 0d 2a 27 20 e8 | 22 47 72 61 70 68 20 4c | :..*' .|"Graph L|
|00002d50| 6f 6e 67 69 74 75 64 65 | 73 20 26 20 44 69 73 74 |ongitude|s & Dist|
|00002d60| 61 6e 63 65 22 3b 41 4e | 24 0d 0d 34 12 20 e7 41 |ance";AN|$..4. .A|
|00002d70| 4e 24 3d 22 4e 22 8c 8d | 64 68 4d 0d 0d 3e 0b 20 |N$="N"..|dhM..>. |
|00002d80| f2 73 63 61 6c 65 0d 0d | 48 0c 20 f2 64 65 73 6f |.scale..|H. .deso|
|00002d90| 72 74 0d 0d 52 10 20 f2 | 63 68 61 72 74 73 65 74 |rt..R. .|chartset|
|00002da0| 75 70 0d 0d 5c 0c 20 f2 | 63 75 72 76 65 73 0d 0d |up..\. .|curves..|
|00002db0| 66 14 20 f1 8a 33 36 2c | 33 31 29 3b 22 64 61 79 |f. ..36,|31);"day|
|00002dc0| 73 22 0d 0d 70 21 20 e8 | 8a 35 30 2c 34 29 3b 22 |s"..p! .|.50,4);"|
|00002dd0| 43 61 6c 63 75 6c 61 74 | 65 20 64 61 74 65 22 3b |Calculat|e date";|
|00002de0| 41 4e 24 0d 0d 7a 21 20 | f1 8a 35 30 2c 34 29 3b |AN$..z! |..50,4);|
|00002df0| 22 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |" | |
|00002e00| 20 20 20 22 0d 0d 84 12 | 20 e7 41 4e 24 3d 22 4e | "....| .AN$="N|
|00002e10| 22 8c 8d 64 4a 4d 0d 0d | 8e 27 20 e8 8a 35 30 2c |"..dJM..|.' ..50,|
|00002e20| 34 29 3b 22 44 61 79 20 | 6e 75 6d 62 65 72 20 66 |4);"Day |number f|
|00002e30| 72 6f 6d 20 73 63 61 6c | 65 22 3b 44 32 0d 0d 98 |rom scal|e";D2...|
|00002e40| 28 20 f1 8a 35 30 2c 34 | 29 3b 22 20 20 20 20 20 |( ..50,4|);" |
|00002e50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002e60| 20 20 20 20 22 0d 0d a2 | 3b 20 44 4a 44 3d 44 4a | "...|; DJD=DJ|
|00002e70| 44 31 2b 44 32 3a 46 4c | 41 47 28 32 29 3d 30 3a |D1+D2:FL|AG(2)=0:|
|00002e80| f2 43 61 6c 64 61 79 3a | f1 8a 33 35 2c 34 29 3b |.Calday:|..35,4);|
|00002e90| 44 59 3b 22 2f 22 3b 4d | 4e 3b 22 2f 22 3b 59 52 |DY;"/";M|N;"/";YR|
|00002ea0| 0d 0d ac 2a 20 e8 8a 35 | 30 2c 34 29 3b 22 41 6e |...* ..5|0,4);"An|
|00002eb0| 6f 74 68 65 72 20 64 61 | 74 65 20 20 20 20 20 20 |other da|te |
|00002ec0| 20 20 20 20 20 22 3b 41 | 4e 24 0d 0d b6 38 20 f1 | ";A|N$...8 .|
|00002ed0| 8a 33 35 2c 34 29 3b 22 | 20 20 20 20 20 20 20 20 |.35,4);"| |
|00002ee0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002ef0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002f00| 20 22 0d 0d c0 12 20 e7 | 41 4e 24 3d 22 59 22 8c | ".... .|AN$="Y".|
|00002f10| 8d 74 4e 4d 0d 0d ca 22 | 20 e8 8a 35 30 2c 34 29 |.tNM..."| ..50,4)|
|00002f20| 3b 22 52 65 76 69 65 77 | 20 74 61 62 6c 65 28 73 |;"Review| table(s|
|00002f30| 29 22 3b 41 4e 24 0d 0d | d4 15 20 e7 20 41 4e 24 |)";AN$..|.. . AN$|
|00002f40| 3d 22 59 22 20 8c 20 8d | 64 6a 46 0d 0d de 09 20 |="Y" . .|djF.... |
|00002f50| db 3a eb 30 0d 0d e8 1c | 20 c8 99 22 4f 53 5f 55 |.:.0....| .."OS_U|
|00002f60| 70 64 61 74 65 4d 45 4d | 43 22 2c 2c 36 34 3a e0 |pdateMEM|C",,64:.|
|00002f70| 0d 0d f2 06 20 3a 0d 0d | fc 11 20 dd f2 45 6c 6f |.... :..|.. ..Elo|
|00002f80| 6e 67 61 74 69 6f 6e 0d | 0e 06 06 20 db 0d 0e 10 |ngation.|... ....|
|00002f90| 14 20 e7 20 54 61 62 6c | 65 24 3d 22 59 22 20 ef |. . Tabl|e$="Y" .|
|00002fa0| 32 0d 0e 1a 30 20 f1 27 | 8a 31 30 29 3b 50 24 3b |2...0 .'|.10);P$;|
|00002fb0| 22 20 66 72 6f 6d 20 22 | 3b 4e 41 4d 45 24 3b 22 |" from "|;NAME$;"|
|00002fc0| 20 28 47 4d 54 22 3b 4b | 24 3b 4c 37 3b 22 29 22 | (GMT";K|$;L7;")"|
|00002fd0| 3b 0d 0e 24 1f 20 44 4a | 44 3d 44 4a 44 31 3a 46 |;..$. DJ|D=DJD1:F|
|00002fe0| 4c 41 47 28 32 29 3d 30 | 3a f2 43 61 6c 64 61 79 |LAG(2)=0|:.Calday|
|00002ff0| 0d 0e 2e 37 20 58 44 3d | 44 59 3a 58 4d 3d 4d 4e |...7 XD=|DY:XM=MN|
|00003000| 3a 58 53 3d 59 52 3a f2 | 53 74 72 69 6e 67 73 3a |:XS=YR:.|Strings:|
|00003010| 44 59 24 3d 58 44 24 3a | 4d 4e 24 3d 58 4d 24 3a |DY$=XD$:|MN$=XM$:|
|00003020| 59 52 24 3d 58 53 24 0d | 0e 38 3d 20 f1 89 28 31 |YR$=XS$.|.8= ..(1|
|00003030| 29 3b 44 59 24 3b 22 2f | 22 3b 4d 4e 24 3b 22 2f |);DY$;"/|";MN$;"/|
|00003040| 22 3b 59 52 24 3b 22 20 | 74 6f 22 3b 3a 44 31 24 |";YR$;" |to";:D1$|
|00003050| 3d 44 59 24 3a 4d 31 24 | 3d 4d 4e 24 3a 59 31 24 |=DY$:M1$|=MN$:Y1$|
|00003060| 3d 59 52 24 0d 0e 42 1f | 20 44 4a 44 3d 44 4a 44 |=YR$..B.| DJD=DJD|
|00003070| 32 3a 46 4c 41 47 28 32 | 29 3d 30 3a f2 43 61 6c |2:FLAG(2|)=0:.Cal|
|00003080| 64 61 79 0d 0e 4c 37 20 | 58 44 3d 44 59 3a 58 4d |day..L7 |XD=DY:XM|
|00003090| 3d 4d 4e 3a 58 53 3d 59 | 52 3a f2 53 74 72 69 6e |=MN:XS=Y|R:.Strin|
|000030a0| 67 73 3a 44 59 24 3d 58 | 44 24 3a 4d 4e 24 3d 58 |gs:DY$=X|D$:MN$=X|
|000030b0| 4d 24 3a 59 52 24 3d 58 | 53 24 0d 0e 56 36 20 f1 |M$:YR$=X|S$..V6 .|
|000030c0| 89 28 31 29 3b 44 59 24 | 3b 22 2f 22 3b 4d 4e 24 |.(1);DY$|;"/";MN$|
|000030d0| 3b 22 2f 22 3b 59 52 24 | 3a 44 32 24 3d 44 59 24 |;"/";YR$|:D2$=DY$|
|000030e0| 3a 4d 32 24 3d 4d 4e 24 | 3a 59 32 24 3d 59 52 24 |:M2$=MN$|:Y2$=YR$|
|000030f0| 0d 0e 60 30 20 f1 27 8a | 38 29 3b 22 4d 69 6e 20 |..`0 .'.|8);"Min |
|00003100| 64 69 73 74 61 6e 63 65 | 20 64 75 72 69 6e 67 20 |distance| during |
|00003110| 74 68 65 20 70 65 72 69 | 6f 64 20 69 73 20 22 3b |the peri|od is ";|
|00003120| 0d 0e 6a 44 20 f1 8a 34 | 33 29 3b a8 28 52 48 4f |..jD ..4|3);.(RHO|
|00003130| 30 6d 69 6e 2a 31 45 32 | 29 2f 31 45 33 3b 22 20 |0min*1E2|)/1E3;" |
|00003140| 41 55 20 6f 6e 20 22 3b | 44 59 6d 69 6e 24 3b 22 |AU on ";|DYmin$;"|
|00003150| 2f 22 3b 4d 4e 6d 69 6e | 24 3b 22 2f 22 3b 59 52 |/";MNmin|$;"/";YR|
|00003160| 6d 69 6e 24 0d 0e 74 30 | 20 f1 27 8a 38 29 3b 22 |min$..t0| .'.8);"|
|00003170| 4d 61 78 20 64 69 73 74 | 61 6e 63 65 20 64 75 72 |Max dist|ance dur|
|00003180| 69 6e 67 20 74 68 65 20 | 70 65 72 69 6f 64 20 69 |ing the |period i|
|00003190| 73 20 22 3b 0d 0e 7e 44 | 20 f1 8a 34 33 29 3b a8 |s ";..~D| ..43);.|
|000031a0| 28 52 48 4f 30 6d 61 78 | 2a 31 45 32 29 2f 31 45 |(RHO0max|*1E2)/1E|
|000031b0| 33 3b 22 20 41 55 20 6f | 6e 20 22 3b 44 59 6d 61 |3;" AU o|n ";DYma|
|000031c0| 78 24 3b 22 2f 22 3b 4d | 4e 6d 61 78 24 3b 22 2f |x$;"/";M|Nmax$;"/|
|000031d0| 22 3b 59 52 6d 61 78 24 | 0d 0e 88 06 20 f1 0d 0e |";YRmax$|.... ...|
|000031e0| 92 06 20 e1 0d 0e 9c 06 | 20 3a 0d 0e a6 0d 20 dd |.. .....| :.... .|
|000031f0| f2 64 65 73 6f 72 74 0d | 0e b0 32 20 e3 4a 3d 31 |.desort.|..2 .J=1|
|00003200| b8 50 51 3a 61 25 21 28 | 4a 2a 38 29 3d a8 28 44 |.PQ:a%!(|J*8)=.(D|
|00003210| 41 54 45 28 4a 29 2a 31 | 30 29 3a 61 25 21 28 4a |ATE(J)*1|0):a%!(J|
|00003220| 2a 38 2d 34 29 3d 4a 3a | ed 0d 0e ba 0a 20 41 25 |*8-4)=J:|..... A%|
|00003230| 3d 61 25 0d 0e c4 09 20 | 42 25 3d 31 0d 0e ce 0a |=a%.... |B%=1....|
|00003240| 20 43 25 3d 50 51 0d 0e | d8 48 20 d6 20 71 73 6f | C%=PQ..|.H . qso|
|00003250| 72 74 3a f4 20 20 20 20 | 20 20 20 20 20 20 20 20 |rt:. | |
|00003260| 20 20 20 20 20 20 53 6f | 72 74 69 6e 67 20 62 61 | So|rting ba|
|00003270| 63 6b 20 74 6f 20 6f 72 | 69 67 69 6e 61 6c 20 61 |ck to or|iginal a|
|00003280| 72 72 61 79 20 66 6f 72 | 20 67 72 61 70 68 0d 0e |rray for| graph..|
|00003290| e2 06 20 3a 0d 0e ec 22 | 20 e3 4a 3d 31 b8 50 51 |.. :..."| .J=1.PQ|
|000032a0| 3a 44 41 54 45 28 4a 29 | 3d 61 25 21 28 4a 2a 38 |:DATE(J)|=a%!(J*8|
|000032b0| 29 2f 31 30 3a ed 0d 0e | f6 44 20 e3 4a 3d 31 b8 |)/10:...|.D .J=1.|
|000032c0| 50 51 3a 53 50 28 4a 29 | 3d 41 4c 54 73 75 6e 72 |PQ:SP(J)|=ALTsunr|
|000032d0| 69 73 65 28 61 25 21 28 | 4a 2a 38 2d 34 29 29 3a |ise(a%!(|J*8-4)):|
|000032e0| ed 3a 41 4c 54 73 75 6e | 72 69 73 65 28 29 3d 53 |.:ALTsun|rise()=S|
|000032f0| 50 28 29 3a 53 50 28 29 | 3d 30 0d 0f 00 42 20 e3 |P():SP()|=0...B .|
|00003300| 4a 3d 31 b8 50 51 3a 53 | 50 28 4a 29 3d 41 5a 73 |J=1.PQ:S|P(J)=AZs|
|00003310| 75 6e 72 69 73 65 28 61 | 25 21 28 4a 2a 38 2d 34 |unrise(a|%!(J*8-4|
|00003320| 29 29 3a ed 3a 41 5a 73 | 75 6e 72 69 73 65 28 29 |)):.:AZs|unrise()|
|00003330| 3d 53 50 28 29 3a 53 50 | 28 29 3d 30 0d 0f 0a 38 |=SP():SP|()=0...8|
|00003340| 20 e3 4a 3d 31 b8 50 51 | 3a 53 50 28 4a 29 3d 52 | .J=1.PQ|:SP(J)=R|
|00003350| 48 4f 30 28 61 25 21 28 | 4a 2a 38 2d 34 29 29 3a |HO0(a%!(|J*8-4)):|
|00003360| ed 3a 52 48 4f 30 28 29 | 3d 53 50 28 29 3a 53 50 |.:RHO0()|=SP():SP|
|00003370| 28 29 3d 30 0d 0f 14 46 | 20 e3 4a 3d 31 b8 50 51 |()=0...F| .J=1.PQ|
|00003380| 3a 53 50 28 4a 29 3d 41 | 4c 54 6d 69 64 6e 69 67 |:SP(J)=A|LTmidnig|
|00003390| 68 74 28 61 25 21 28 4a | 2a 38 2d 34 29 29 3a ed |ht(a%!(J|*8-4)):.|
|000033a0| 3a 41 4c 54 6d 69 64 6e | 69 67 68 74 28 29 3d 53 |:ALTmidn|ight()=S|
|000033b0| 50 28 29 3a 53 50 28 29 | 3d 30 0d 0f 1e 36 20 e3 |P():SP()|=0...6 .|
|000033c0| 4a 3d 31 b8 50 51 3a 53 | 50 28 4a 29 3d 4c 41 4d |J=1.PQ:S|P(J)=LAM|
|000033d0| 28 61 25 21 28 4a 2a 38 | 2d 34 29 29 3a ed 3a 4c |(a%!(J*8|-4)):.:L|
|000033e0| 41 4d 28 29 3d 53 50 28 | 29 3a 53 50 28 29 3d 30 |AM()=SP(|):SP()=0|
|000033f0| 0d 0f 28 36 20 e3 4a 3d | 31 b8 50 51 3a 53 50 28 |..(6 .J=|1.PQ:SP(|
|00003400| 4a 29 3d 42 45 54 28 61 | 25 21 28 4a 2a 38 2d 34 |J)=BET(a|%!(J*8-4|
|00003410| 29 29 3a ed 3a 42 45 54 | 28 29 3d 53 50 28 29 3a |)):.:BET|()=SP():|
|00003420| 53 50 28 29 3d 30 0d 0f | 32 05 3a 0d 0f 3c 05 3a |SP()=0..|2.:..<.:|
|00003430| 0d 0f 46 36 20 e3 4a 3d | 31 b8 50 51 3a 53 50 28 |..F6 .J=|1.PQ:SP(|
|00003440| 4a 29 3d 48 53 52 28 61 | 25 21 28 4a 2a 38 2d 34 |J)=HSR(a|%!(J*8-4|
|00003450| 29 29 3a ed 3a 48 53 52 | 28 29 3d 53 50 28 29 3a |)):.:HSR|()=SP():|
|00003460| 53 50 28 29 3d 30 0d 0f | 50 06 20 3a 0d 0f 5a 33 |SP()=0..|P. :..Z3|
|00003470| 20 e3 4a 3d 31 b8 50 51 | 3a 61 25 21 28 4a 2a 38 | .J=1.PQ|:a%!(J*8|
|00003480| 29 3d a8 28 44 41 54 45 | 41 28 4a 29 2a 31 30 29 |)=.(DATE|A(J)*10)|
|00003490| 3a 61 25 21 28 4a 2a 38 | 2d 34 29 3d 4a 3a ed 0d |:a%!(J*8|-4)=J:..|
|000034a0| 0f 64 0a 20 41 25 3d 61 | 25 0d 0f 6e 09 20 42 25 |.d. A%=a|%..n. B%|
|000034b0| 3d 31 0d 0f 78 0a 20 43 | 25 3d 50 51 0d 0f 82 48 |=1..x. C|%=PQ...H|
|000034c0| 20 d6 20 71 73 6f 72 74 | 3a f4 20 20 20 20 20 20 | . qsort|:. |
|000034d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 53 6f 72 74 | | Sort|
|000034e0| 69 6e 67 20 62 61 63 6b | 20 74 6f 20 6f 72 69 67 |ing back| to orig|
|000034f0| 69 6e 61 6c 20 61 72 72 | 61 79 20 66 6f 72 20 67 |inal arr|ay for g|
|00003500| 72 61 70 68 0d 0f 8c 06 | 20 3a 0d 0f 96 23 20 e3 |raph....| :...# .|
|00003510| 4a 3d 31 b8 50 51 3a 44 | 41 54 45 41 28 4a 29 3d |J=1.PQ:D|ATEA(J)=|
|00003520| 61 25 21 28 4a 2a 38 29 | 2f 31 30 3a ed 0d 0f a0 |a%!(J*8)|/10:....|
|00003530| 42 20 e3 4a 3d 31 b8 50 | 51 3a 53 50 28 4a 29 3d |B .J=1.P|Q:SP(J)=|
|00003540| 41 4c 54 73 75 6e 73 65 | 74 28 61 25 21 28 4a 2a |ALTsunse|t(a%!(J*|
|00003550| 38 2d 34 29 29 3a ed 3a | 41 4c 54 73 75 6e 73 65 |8-4)):.:|ALTsunse|
|00003560| 74 28 29 3d 53 50 28 29 | 3a 53 50 28 29 3d 30 0d |t()=SP()|:SP()=0.|
|00003570| 0f aa 40 20 e3 4a 3d 31 | b8 50 51 3a 53 50 28 4a |..@ .J=1|.PQ:SP(J|
|00003580| 29 3d 41 5a 73 75 6e 73 | 65 74 28 61 25 21 28 4a |)=AZsuns|et(a%!(J|
|00003590| 2a 38 2d 34 29 29 3a ed | 3a 41 5a 73 75 6e 73 65 |*8-4)):.|:AZsunse|
|000035a0| 74 28 29 3d 53 50 28 29 | 3a 53 50 28 29 3d 30 0d |t()=SP()|:SP()=0.|
|000035b0| 0f b4 38 20 e3 4a 3d 31 | b8 50 51 3a 53 50 28 4a |..8 .J=1|.PQ:SP(J|
|000035c0| 29 3d 4c 41 4d 42 28 61 | 25 21 28 4a 2a 38 2d 34 |)=LAMB(a|%!(J*8-4|
|000035d0| 29 29 3a ed 3a 4c 41 4d | 42 28 29 3d 53 50 28 29 |)):.:LAM|B()=SP()|
|000035e0| 3a 53 50 28 29 3d 30 0d | 0f be 38 20 e3 4a 3d 31 |:SP()=0.|..8 .J=1|
|000035f0| b8 50 51 3a 53 50 28 4a | 29 3d 42 45 54 42 28 61 |.PQ:SP(J|)=BETB(a|
|00003600| 25 21 28 4a 2a 38 2d 34 | 29 29 3a ed 3a 42 45 54 |%!(J*8-4|)):.:BET|
|00003610| 42 28 29 3d 53 50 28 29 | 3a 53 50 28 29 3d 30 0d |B()=SP()|:SP()=0.|
|00003620| 0f c8 36 20 e3 4a 3d 31 | b8 50 51 3a 53 50 28 4a |..6 .J=1|.PQ:SP(J|
|00003630| 29 3d 48 53 53 28 61 25 | 21 28 4a 2a 38 2d 34 29 |)=HSS(a%|!(J*8-4)|
|00003640| 29 3a ed 3a 48 53 53 28 | 29 3d 53 50 28 29 3a 53 |):.:HSS(|)=SP():S|
|00003650| 50 28 29 3d 30 0d 0f d2 | 06 20 e1 0d 0f dc 06 20 |P()=0...|. ..... |
|00003660| 3a 0d 0f e6 11 20 dd f2 | 63 68 61 72 74 73 65 74 |:.... ..|chartset|
|00003670| 75 70 0d 0f f0 06 20 db | 0d 0f fa 27 20 eb 20 31 |up.... .|...' . 1|
|00003680| 32 3a e6 20 37 3a 63 6f | 6c 3d 37 36 3a e7 a9 28 |2:. 7:co|l=76:..(|
|00003690| c3 28 50 51 29 29 3e 33 | 8c 63 6f 6c 3d 37 34 0d |.(PQ))>3|.col=74.|
|000036a0| 10 04 6a 20 f1 27 8a 32 | 29 3b 50 24 3b 22 20 66 |..j .'.2|);P$;" f|
|000036b0| 72 6f 6d 20 22 3b 4e 41 | 4d 45 24 3b 22 3a 4c 6f |rom ";NA|ME$;":Lo|
|000036c0| 6e 67 69 74 75 64 65 73 | 20 26 20 64 69 73 74 61 |ngitudes| & dista|
|000036d0| 6e 63 65 20 66 72 6f 6d | 20 22 3b 44 31 24 3b 22 |nce from| ";D1$;"|
|000036e0| 2f 22 3b 4d 31 24 3b 22 | 2f 22 3b 59 31 24 3b 22 |/";M1$;"|/";Y1$;"|
|000036f0| 20 74 6f 20 22 3b 44 32 | 24 3b 22 2f 22 3b 4d 32 | to ";D2|$;"/";M2|
|00003700| 24 3b 22 2f 22 3b 59 32 | 24 0d 10 0e 20 20 f1 8a |$;"/";Y2|$... ..|
|00003710| 35 29 3b 22 65 71 75 61 | 74 6f 72 69 61 6c 20 6c |5);"equa|torial l|
|00003720| 6f 6e 67 69 74 75 64 65 | 22 0d 10 18 20 20 f1 8a |ongitude|"... ..|
|00003730| 35 29 3b 22 67 65 6f 63 | 65 6e 74 72 69 63 20 6c |5);"geoc|entric l|
|00003740| 6f 6e 67 69 74 75 64 65 | 22 0d 10 22 22 20 f1 8a |ongitude|".."" ..|
|00003750| 35 29 3b 22 68 65 6c 69 | 6f 63 65 6e 74 72 69 63 |5);"heli|ocentric|
|00003760| 20 6c 6f 6e 67 69 74 75 | 64 65 22 0d 10 2c 27 20 | longitu|de"..,' |
|00003770| f1 8a 35 29 3b 22 64 69 | 73 74 61 6e 63 65 20 66 |..5);"di|stance f|
|00003780| 72 6f 6d 20 45 61 72 74 | 68 20 28 41 55 2a 31 30 |rom Eart|h (AU*10|
|00003790| 29 22 0d 10 36 2a 20 f1 | 8a 34 2c a4 53 43 4c 28 |)"..6* .|.4,.SCL(|
|000037a0| 50 6c 75 73 6d 72 6b 29 | 29 3b 22 2b 22 3b 59 6d |Plusmrk)|);"+";Ym|
|000037b0| 61 78 61 76 3b 22 20 64 | 65 67 2e 22 0d 10 40 36 |axav;" d|eg."..@6|
|000037c0| 20 e7 20 4d 69 6e 75 73 | 6d 72 6b 3c 3e 32 35 20 | . Minus|mrk<>25 |
|000037d0| f1 8a 35 2c a4 53 43 4c | 28 4d 69 6e 75 73 6d 72 |..5,.SCL|(Minusmr|
|000037e0| 6b 29 29 3b 59 6d 69 6e | 61 76 3b 22 20 64 65 67 |k));Ymin|av;" deg|
|000037f0| 2e 22 0d 10 4a 16 20 e3 | 4e 3d 30 b8 50 51 20 88 |."..J. .|N=0.PQ .|
|00003800| 20 a8 28 50 51 2f 34 29 | 0d 10 54 3a 20 43 44 4e | .(PQ/4)|..T: CDN|
|00003810| 3d a8 28 a4 43 44 4e 28 | 4e 2c 58 6d 69 6e 2c 58 |=.(.CDN(|N,Xmin,X|
|00003820| 6d 61 78 2c 31 32 32 35 | 29 2a 63 6f 6c 2f 31 32 |max,1225|)*col/12|
|00003830| 32 35 29 3a e7 43 44 4e | 3c 30 20 8c 20 43 44 4e |25):.CDN|<0 . CDN|
|00003840| 3d 30 0d 10 5e 10 20 f1 | 8a 43 44 4e 2c 33 30 29 |=0..^. .|.CDN,30)|
|00003850| 3b 4e 0d 10 68 06 20 ed | 0d 10 72 06 20 e1 0d 10 |;N..h. .|..r. ...|
|00003860| 7c 06 20 3a 0d 10 86 0c | 20 dd f2 73 63 61 6c 65 ||. :....| ..scale|
|00003870| 0d 10 90 1a 20 e3 4a 3d | 31 b8 38 3a 61 25 21 28 |.... .J=|1.8:a%!(|
|00003880| 4a 2a 38 2d 34 29 3d 4a | 3a ed 0d 10 9a 28 20 61 |J*8-4)=J|:....( a|
|00003890| 25 21 28 38 29 3d a8 28 | 94 28 52 48 4f 30 6d 61 |%!(8)=.(|.(RHO0ma|
|000038a0| 78 29 2b 30 2e 35 29 2a | b4 28 52 48 4f 30 6d 61 |x)+0.5)*|.(RHO0ma|
|000038b0| 78 29 0d 10 a4 29 20 61 | 25 21 28 31 36 29 3d a8 |x)...) a|%!(16)=.|
|000038c0| 28 94 28 52 48 4f 30 6d | 69 6e 29 2b 30 2e 35 29 |(.(RHO0m|in)+0.5)|
|000038d0| 2a b4 28 52 48 4f 30 6d | 69 6e 29 0d 10 ae 2f 20 |*.(RHO0m|in).../ |
|000038e0| 61 25 21 28 32 34 29 3d | a8 28 94 28 a4 44 45 47 |a%!(24)=|.(.(.DEG|
|000038f0| 28 4c 41 4d 43 6d 61 78 | 29 29 2b 30 2e 35 29 2a |(LAMCmax|))+0.5)*|
|00003900| b4 28 4c 41 4d 43 6d 61 | 78 29 0d 10 b8 2f 20 61 |.(LAMCma|x).../ a|
|00003910| 25 21 28 33 32 29 3d a8 | 28 94 28 a4 44 45 47 28 |%!(32)=.|(.(.DEG(|
|00003920| 4c 41 4d 43 6d 69 6e 29 | 29 2b 30 2e 35 29 2a b4 |LAMCmin)|)+0.5)*.|
|00003930| 28 4c 41 4d 43 6d 69 6e | 29 0d 10 c2 2f 20 61 25 |(LAMCmin|).../ a%|
|00003940| 21 28 34 30 29 3d a8 28 | 94 28 a4 44 45 47 28 4c |!(40)=.(|.(.DEG(L|
|00003950| 41 4d 41 6d 61 78 29 29 | 2b 30 2e 35 29 2a b4 28 |AMAmax))|+0.5)*.(|
|00003960| 4c 41 4d 41 6d 61 78 29 | 0d 10 cc 2f 20 61 25 21 |LAMAmax)|.../ a%!|
|00003970| 28 34 38 29 3d a8 28 94 | 28 a4 44 45 47 28 4c 41 |(48)=.(.|(.DEG(LA|
|00003980| 4d 41 6d 69 6e 29 29 2b | 30 2e 35 29 2a b4 28 4c |MAmin))+|0.5)*.(L|
|00003990| 41 4d 41 6d 69 6e 29 0d | 10 d6 2f 20 61 25 21 28 |AMAmin).|../ a%!(|
|000039a0| 35 36 29 3d a8 28 94 28 | a4 44 45 47 28 4c 50 44 |56)=.(.(|.DEG(LPD|
|000039b0| 30 6d 61 78 29 29 2b 30 | 2e 35 29 2a b4 28 4c 50 |0max))+0|.5)*.(LP|
|000039c0| 44 30 6d 61 78 29 0d 10 | e0 2f 20 61 25 21 28 36 |D0max)..|./ a%!(6|
|000039d0| 34 29 3d a8 28 94 28 a4 | 44 45 47 28 4c 50 44 30 |4)=.(.(.|DEG(LPD0|
|000039e0| 6d 69 6e 29 29 2b 30 2e | 35 29 2a b4 28 4c 50 44 |min))+0.|5)*.(LPD|
|000039f0| 30 6d 69 6e 29 0d 10 ea | 06 20 3a 0d 10 f4 0a 20 |0min)...|. :.... |
|00003a00| 41 25 3d 61 25 0d 10 fe | 09 20 42 25 3d 31 0d 11 |A%=a%...|. B%=1..|
|00003a10| 08 09 20 43 25 3d 38 0d | 11 12 0c 20 d6 20 71 73 |.. C%=8.|... . qs|
|00003a20| 6f 72 74 0d 11 1c 06 20 | 3a 0d 11 26 24 20 59 6d |ort.... |:..&$ Ym|
|00003a30| 61 78 3d a8 28 94 28 61 | 25 21 28 36 34 29 29 2b |ax=.(.(a|%!(64))+|
|00003a40| 31 29 2a b4 28 61 25 21 | 28 36 34 29 29 0d 11 30 |1)*.(a%!|(64))..0|
|00003a50| 34 20 59 6d 69 6e 3d a8 | 28 94 28 61 25 21 28 38 |4 Ymin=.|(.(a%!(8|
|00003a60| 29 29 2b 31 29 2a b4 28 | 61 25 21 28 38 29 29 3a |))+1)*.(|a%!(8)):|
|00003a70| e7 20 59 6d 69 6e 3e 30 | 20 8c 20 59 6d 69 6e 3d |. Ymin>0| . Ymin=|
|00003a80| 30 0d 11 3a 0c 20 58 6d | 61 78 3d 50 51 0d 11 44 |0..:. Xm|ax=PQ..D|
|00003a90| 0b 20 58 6d 69 6e 3d 31 | 0d 11 4e 1b 20 59 6d 61 |. Xmin=1|..N. Yma|
|00003aa0| 78 61 76 3d a8 28 28 59 | 6d 61 78 2f 32 29 2b 30 |xav=.((Y|max/2)+0|
|00003ab0| 2e 35 29 0d 11 58 1b 20 | 59 6d 69 6e 61 76 3d a8 |.5)..X. |Yminav=.|
|00003ac0| 28 28 59 6d 69 6e 2f 32 | 29 2b 30 2e 35 29 0d 11 |((Ymin/2|)+0.5)..|
|00003ad0| 62 20 20 59 7a 65 72 6f | 3d a4 43 44 4e 28 30 2c |b Yzero|=.CDN(0,|
|00003ae0| 59 6d 69 6e 2c 59 6d 61 | 78 2c 38 35 30 29 0d 11 |Ymin,Yma|x,850)..|
|00003af0| 6c 31 20 50 6c 75 73 6d | 72 6b 3d a8 28 28 94 28 |l1 Plusm|rk=.((.(|
|00003b00| 38 35 30 2b 59 7a 65 72 | 6f 29 2f 32 29 2b 30 2e |850+Yzer|o)/2)+0.|
|00003b10| 35 29 2a b4 28 38 35 30 | 2b 59 7a 65 72 6f 29 0d |5)*.(850|+Yzero).|
|00003b20| 11 76 30 20 4d 69 6e 75 | 73 6d 72 6b 3d a8 28 28 |.v0 Minu|smrk=.((|
|00003b30| 94 28 59 7a 65 72 6f 2d | 32 35 29 2f 32 29 2b 30 |.(Yzero-|25)/2)+0|
|00003b40| 2e 35 29 2a b4 28 59 7a | 65 72 6f 2d 32 35 29 0d |.5)*.(Yz|ero-25).|
|00003b50| 11 80 2b 20 e7 20 4d 69 | 6e 75 73 6d 72 6b 3c 32 |..+ . Mi|nusmrk<2|
|00003b60| 35 20 80 20 59 7a 65 72 | 6f 3d 32 35 20 8c 20 4d |5 . Yzer|o=25 . M|
|00003b70| 69 6e 75 73 6d 72 6b 3d | 32 35 0d 11 8a 06 20 e1 |inusmrk=|25.... .|
|00003b80| 0d 11 94 06 20 3a 0d 11 | 9e 0d 20 dd f2 63 75 72 |.... :..|.. ..cur|
|00003b90| 76 65 73 0d 11 a8 1a 20 | 86 20 32 35 2c 59 7a 65 |ves.... |. 25,Yze|
|00003ba0| 72 6f 2c 31 32 35 30 2c | 59 7a 65 72 6f 0d 11 b2 |ro,1250,|Yzero...|
|00003bb0| 1d 20 86 20 32 35 2c 38 | 32 35 2c 32 35 2c 32 35 |. . 25,8|25,25,25|
|00003bc0| 3a df 20 31 32 35 30 2c | 32 35 0d 11 bc 1c 20 86 |:. 1250,|25.... .|
|00003bd0| 20 32 35 2c 50 6c 75 73 | 6d 72 6b 2c 35 30 2c 50 | 25,Plus|mrk,50,P|
|00003be0| 6c 75 73 6d 72 6b 0d 11 | c6 2a 20 e7 20 59 6d 69 |lusmrk..|.* . Ymi|
|00003bf0| 6e 3c 3e 30 20 8c 20 86 | 20 32 35 2c 4d 69 6e 75 |n<>0 . .| 25,Minu|
|00003c00| 73 6d 72 6b 2c 35 30 2c | 4d 69 6e 75 73 6d 72 6b |smrk,50,|Minusmrk|
|00003c10| 0d 11 d0 17 20 e3 4e 3d | 59 6d 69 6e 20 b8 20 59 |.... .N=|Ymin . Y|
|00003c20| 6d 61 78 20 88 20 34 0d | 11 da 38 20 86 20 32 35 |max . 4.|..8 . 25|
|00003c30| 2c a4 43 44 4e 28 4e 2c | 59 6d 69 6e 2c 59 6d 61 |,.CDN(N,|Ymin,Yma|
|00003c40| 78 2c 38 35 30 29 2c 33 | 30 2c a4 43 44 4e 28 4e |x,850),3|0,.CDN(N|
|00003c50| 2c 59 6d 69 6e 2c 59 6d | 61 78 2c 38 35 30 29 0d |,Ymin,Ym|ax,850).|
|00003c60| 11 e4 08 20 ed 20 4e 0d | 11 ee 17 20 e3 4e 3d 30 |... . N.|... .N=0|
|00003c70| 20 b8 20 50 51 20 88 20 | 50 51 20 81 20 34 0d 11 | . PQ . |PQ . 4..|
|00003c80| f8 3a 20 86 20 a4 43 44 | 4e 28 4e 2c 58 6d 69 6e |.: . .CD|N(N,Xmin|
|00003c90| 2c 58 6d 61 78 2c 31 32 | 32 35 29 2c 32 35 2c a4 |,Xmax,12|25),25,.|
|00003ca0| 43 44 4e 28 4e 2c 58 6d | 69 6e 2c 58 6d 61 78 2c |CDN(N,Xm|in,Xmax,|
|00003cb0| 31 32 32 35 29 2c 31 30 | 0d 12 02 08 20 ed 20 4e |1225),10|.... . N|
|00003cc0| 0d 12 0c 0e 20 e7 20 50 | 51 3e 33 31 20 8c 0d 12 |.... . P|Q>31 ...|
|00003cd0| 16 19 20 20 e3 4e 3d 30 | 20 b8 20 50 51 20 88 20 |.. .N=0| . PQ . |
|00003ce0| 50 51 20 81 20 33 32 0d | 12 20 3b 20 20 86 20 a4 |PQ . 32.|. ; . .|
|00003cf0| 43 44 4e 28 4e 2c 58 6d | 69 6e 2c 58 6d 61 78 2c |CDN(N,Xm|in,Xmax,|
|00003d00| 31 32 32 35 29 2c 32 35 | 2c a4 43 44 4e 28 4e 2c |1225),25|,.CDN(N,|
|00003d10| 58 6d 69 6e 2c 58 6d 61 | 78 2c 31 32 32 35 29 2c |Xmin,Xma|x,1225),|
|00003d20| 33 35 0d 12 2a 09 20 20 | ed 20 4e 0d 12 34 06 20 |35..*. |. N..4. |
|00003d30| cd 0d 12 3e 14 20 86 20 | 33 30 2c 38 34 35 2c 35 |...>. . |30,845,5|
|00003d40| 35 2c 38 34 35 0d 12 48 | 25 20 ec 20 32 35 2c a4 |5,845..H|% . 25,.|
|00003d50| 43 44 4e 28 52 48 4f 30 | 28 31 29 2c 59 6d 69 6e |CDN(RHO0|(1),Ymin|
|00003d60| 2c 59 6d 61 78 2c 38 35 | 30 29 0d 12 52 0c 20 e3 |,Ymax,85|0)..R. .|
|00003d70| 4e 3d 32 b8 50 51 0d 12 | 5c 39 20 df 20 a4 43 44 |N=2.PQ..|\9 . .CD|
|00003d80| 4e 28 4e 2c 58 6d 69 6e | 2c 58 6d 61 78 2c 31 32 |N(N,Xmin|,Xmax,12|
|00003d90| 32 35 29 2c a4 43 44 4e | 28 52 48 4f 30 28 4e 29 |25),.CDN|(RHO0(N)|
|00003da0| 2c 59 6d 69 6e 2c 59 6d | 61 78 2c 38 35 30 29 0d |,Ymin,Ym|ax,850).|
|00003db0| 12 66 08 20 ed 20 4e 0d | 12 70 45 20 e6 20 31 3a |.f. . N.|.pE . 1:|
|00003dc0| 86 20 33 30 2c 39 33 35 | 2c 35 35 2c 39 33 35 3a |. 30,935|,55,935:|
|00003dd0| f4 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00003de0| 20 20 20 20 20 20 20 20 | 20 20 20 20 46 69 72 73 | | Firs|
|00003df0| 74 20 63 6f 6c 6f 75 72 | 20 62 61 72 0d 12 7a 2b |t colour| bar..z+|
|00003e00| 20 ec 20 32 35 2c a4 43 | 44 4e 28 a4 44 45 47 28 | . 25,.C|DN(.DEG(|
|00003e10| 4c 41 4d 43 28 31 29 29 | 2c 59 6d 69 6e 2c 59 6d |LAMC(1))|,Ymin,Ym|
|00003e20| 61 78 2c 38 35 30 29 0d | 12 84 0c 20 e3 4e 3d 32 |ax,850).|... .N=2|
|00003e30| b8 50 51 0d 12 8e 3f 20 | df 20 a4 43 44 4e 28 4e |.PQ...? |. .CDN(N|
|00003e40| 2c 58 6d 69 6e 2c 58 6d | 61 78 2c 31 32 32 35 29 |,Xmin,Xm|ax,1225)|
|00003e50| 2c a4 43 44 4e 28 a4 44 | 45 47 28 4c 41 4d 43 28 |,.CDN(.D|EG(LAMC(|
|00003e60| 4e 29 29 2c 59 6d 69 6e | 2c 59 6d 61 78 2c 38 35 |N)),Ymin|,Ymax,85|
|00003e70| 30 29 0d 12 98 08 20 ed | 20 4e 0d 12 a2 18 20 e6 |0).... .| N.... .|
|00003e80| 20 32 3a 86 20 33 30 2c | 39 30 35 2c 35 35 2c 39 | 2:. 30,|905,55,9|
|00003e90| 30 35 0d 12 ac 2b 20 ec | 20 32 35 2c a4 43 44 4e |05...+ .| 25,.CDN|
|00003ea0| 28 a4 44 45 47 28 4c 41 | 4d 41 28 31 29 29 2c 59 |(.DEG(LA|MA(1)),Y|
|00003eb0| 6d 69 6e 2c 59 6d 61 78 | 2c 38 35 30 29 0d 12 b6 |min,Ymax|,850)...|
|00003ec0| 0c 20 e3 4e 3d 32 b8 50 | 51 0d 12 c0 3f 20 df 20 |. .N=2.P|Q...? . |
|00003ed0| a4 43 44 4e 28 4e 2c 58 | 6d 69 6e 2c 58 6d 61 78 |.CDN(N,X|min,Xmax|
|00003ee0| 2c 31 32 32 35 29 2c a4 | 43 44 4e 28 a4 44 45 47 |,1225),.|CDN(.DEG|
|00003ef0| 28 4c 41 4d 41 28 4e 29 | 29 2c 59 6d 69 6e 2c 59 |(LAMA(N)|),Ymin,Y|
|00003f00| 6d 61 78 2c 38 35 30 29 | 0d 12 ca 08 20 ed 20 4e |max,850)|.... . N|
|00003f10| 0d 12 d4 18 20 e6 20 33 | 3a 86 20 33 30 2c 38 37 |.... . 3|:. 30,87|
|00003f20| 35 2c 35 35 2c 38 37 35 | 0d 12 de 2b 20 ec 20 32 |5,55,875|...+ . 2|
|00003f30| 35 2c a4 43 44 4e 28 a4 | 44 45 47 28 4c 50 44 30 |5,.CDN(.|DEG(LPD0|
|00003f40| 28 31 29 29 2c 59 6d 69 | 6e 2c 59 6d 61 78 2c 38 |(1)),Ymi|n,Ymax,8|
|00003f50| 35 30 29 0d 12 e8 0c 20 | e3 4e 3d 32 b8 50 51 0d |50).... |.N=2.PQ.|
|00003f60| 12 f2 3f 20 df 20 a4 43 | 44 4e 28 4e 2c 58 6d 69 |..? . .C|DN(N,Xmi|
|00003f70| 6e 2c 58 6d 61 78 2c 31 | 32 32 35 29 2c a4 43 44 |n,Xmax,1|225),.CD|
|00003f80| 4e 28 a4 44 45 47 28 4c | 50 44 30 28 4e 29 29 2c |N(.DEG(L|PD0(N)),|
|00003f90| 59 6d 69 6e 2c 59 6d 61 | 78 2c 38 35 30 29 0d 12 |Ymin,Yma|x,850)..|
|00003fa0| fc 08 20 ed 20 4e 0d 13 | 06 06 20 e1 0d 13 10 06 |.. . N..|.. .....|
|00003fb0| 20 3a 0d 13 1a 0e 20 dd | f2 53 74 72 69 6e 67 73 | :.... .|.Strings|
|00003fc0| 0d 13 24 0d 20 58 53 3d | a8 28 58 53 29 0d 13 2e |..$. XS=|.(XS)...|
|00003fd0| 24 20 58 44 24 3d c3 28 | 58 44 29 3a e7 20 58 44 |$ XD$=.(|XD):. XD|
|00003fe0| 3c 31 30 20 8c 20 58 44 | 24 3d 22 30 22 2b 58 44 |<10 . XD|$="0"+XD|
|00003ff0| 24 0d 13 38 24 20 58 4d | 24 3d c3 28 58 4d 29 3a |$..8$ XM|$=.(XM):|
|00004000| e7 20 58 4d 3c 31 30 20 | 8c 20 58 4d 24 3d 22 30 |. XM<10 |. XM$="0|
|00004010| 22 2b 58 4d 24 0d 13 42 | 24 20 58 53 24 3d c3 28 |"+XM$..B|$ XS$=.(|
|00004020| 58 53 29 3a e7 20 58 53 | 3c 31 30 20 8c 20 58 53 |XS):. XS|<10 . XS|
|00004030| 24 3d 22 30 22 2b 58 53 | 24 0d 13 4c 06 20 e1 0d |$="0"+XS|$..L. ..|
|00004040| 13 56 06 20 3a 0d 13 60 | 0b 20 dd f2 52 69 73 65 |.V. :..`|. ..Rise|
|00004050| 0d 13 6a 78 20 f1 89 28 | 32 29 3b 22 77 68 65 6e |..jx ..(|2);"when|
|00004060| 20 53 75 6e 20 72 69 73 | 65 73 20 61 74 20 22 3b | Sun ris|es at ";|
|00004070| 48 52 24 3b 22 3a 22 3b | 4d 52 24 3b 22 47 4d 54 |HR$;":";|MR$;"GMT|
|00004080| 2c 20 70 6c 61 6e 65 74 | 20 61 6c 74 20 69 73 20 |, planet| alt is |
|00004090| 22 3b 53 48 53 52 24 3b | 41 4c 54 78 64 48 53 52 |";SHSR$;|ALTxdHSR|
|000040a0| 6d 61 78 24 3b 22 2c 22 | 3b 41 4c 54 78 6d 48 53 |max$;","|;ALTxmHS|
|000040b0| 52 6d 61 78 24 3b 22 2c | 22 3b 41 4c 54 73 65 63 |Rmax$;",|";ALTsec|
|000040c0| 48 53 52 6d 61 78 24 3b | 0d 13 74 40 20 f1 22 20 |HSRmax$;|..t@ ." |
|000040d0| 61 6e 64 20 61 7a 20 69 | 73 20 22 3b 41 5a 78 64 |and az i|s ";AZxd|
|000040e0| 48 53 52 6d 61 78 24 3b | 22 2c 22 3b 41 5a 78 6d |HSRmax$;|",";AZxm|
|000040f0| 48 53 52 6d 61 78 24 3b | 22 2c 22 3b 41 5a 73 65 |HSRmax$;|",";AZse|
|00004100| 63 48 53 52 6d 61 78 24 | 0d 13 7e 06 20 f1 0d 13 |cHSRmax$|..~. ...|
|00004110| 88 06 20 e1 0d 13 92 06 | 20 3a 0d 13 9c 0a 20 dd |.. .....| :.... .|
|00004120| f2 53 65 74 0d 13 a6 77 | 20 f1 89 28 33 29 3b 22 |.Set...w| ..(3);"|
|00004130| 77 68 65 6e 20 53 75 6e | 20 73 65 74 73 20 61 74 |when Sun| sets at|
|00004140| 20 22 3b 48 53 24 3b 22 | 3a 22 3b 4d 53 24 3b 22 | ";HS$;"|:";MS$;"|
|00004150| 47 4d 54 2c 20 70 6c 61 | 6e 65 74 20 61 6c 74 20 |GMT, pla|net alt |
|00004160| 69 73 20 22 3b 53 48 53 | 53 24 3b 41 4c 54 78 64 |is ";SHS|S$;ALTxd|
|00004170| 48 53 53 6d 61 78 24 3b | 22 2c 22 3b 41 4c 54 78 |HSSmax$;|",";ALTx|
|00004180| 6d 48 53 53 6d 61 78 24 | 3b 22 2c 22 3b 41 4c 54 |mHSSmax$|;",";ALT|
|00004190| 73 65 63 48 53 53 6d 61 | 78 24 3b 0d 13 b0 40 20 |secHSSma|x$;...@ |
|000041a0| f1 22 20 61 6e 64 20 61 | 7a 20 69 73 20 22 3b 41 |." and a|z is ";A|
|000041b0| 5a 78 64 48 53 53 6d 61 | 78 24 3b 22 2c 22 3b 41 |ZxdHSSma|x$;",";A|
|000041c0| 5a 78 6d 48 53 53 6d 61 | 78 24 3b 22 2c 22 3b 41 |ZxmHSSma|x$;",";A|
|000041d0| 5a 73 65 63 48 53 53 6d | 61 78 24 0d 13 ba 06 20 |ZsecHSSm|ax$.... |
|000041e0| f1 0d 13 c4 06 20 e1 0d | 13 ce 06 20 3a 0d 13 d8 |..... ..|... :...|
|000041f0| 0d 20 dd f2 4d 69 6e 73 | 65 63 0d 13 e2 1e 20 e7 |. ..Mins|ec.... .|
|00004200| 20 53 57 31 3d 31 20 20 | f2 4d 69 6e 73 65 63 5f | SW1=1 |.Minsec_|
|00004210| 49 6e 74 65 67 65 72 73 | 0d 13 ec 1d 20 e7 20 53 |Integers|.... . S|
|00004220| 57 31 3d 2d 31 20 f2 4d | 69 6e 73 65 63 5f 44 65 |W1=-1 .M|insec_De|
|00004230| 63 69 6d 61 6c 0d 13 f6 | 06 20 e1 0d 14 00 06 20 |cimal...|. ..... |
|00004240| 3a 0d 14 0a 16 20 dd f2 | 4d 69 6e 73 65 63 5f 49 |:.... ..|Minsec_I|
|00004250| 6e 74 65 67 65 72 73 0d | 14 14 1d 20 53 4e 3d b4 |ntegers.|... SN=.|
|00004260| 28 58 29 3a 58 50 3d 94 | 28 58 29 3a 58 44 3d a8 |(X):XP=.|(X):XD=.|
|00004270| 28 58 50 29 0d 14 1e 19 | 20 41 3d 28 58 50 2d 58 |(XP)....| A=(XP-X|
|00004280| 44 29 2a 36 30 3a 58 4d | 3d a8 28 41 29 0d 14 28 |D)*60:XM|=.(A)..(|
|00004290| 1c 20 58 53 3d a8 28 28 | 41 2d 58 4d 29 2a 36 30 |. XS=.((|A-XM)*60|
|000042a0| 30 2b 30 2e 35 29 2f 31 | 30 0d 14 32 0b 20 53 24 |0+0.5)/1|0..2. S$|
|000042b0| 3d 22 2b 22 0d 14 3c 16 | 20 e7 20 53 4e 3d 2d 31 |="+"..<.| . SN=-1|
|000042c0| 20 20 8c 20 53 24 3d 22 | 2d 22 0d 14 46 06 20 e1 | . S$="|-"..F. .|
|000042d0| 0d 14 50 06 20 3a 0d 14 | 5a 15 20 dd f2 4d 69 6e |..P. :..|Z. ..Min|
|000042e0| 73 65 63 5f 44 65 63 69 | 6d 61 6c 0d 14 64 0a 20 |sec_Deci|mal..d. |
|000042f0| 53 4e 3d 2b 31 0d 14 6e | 21 20 e7 20 58 44 3c 30 |SN=+1..n|! . XD<0|
|00004300| 20 84 20 58 4d 3c 30 20 | 84 20 58 53 3c 30 20 8c | . XM<0 |. XS<0 .|
|00004310| 20 53 4e 3d 2d 31 0d 14 | 78 22 20 58 44 31 3d 94 | SN=-1..|x" XD1=.|
|00004320| 28 58 44 29 3a 58 4d 31 | 3d 94 28 58 4d 29 3a 58 |(XD):XM1|=.(XM):X|
|00004330| 53 31 3d 94 28 58 53 29 | 0d 14 82 23 20 58 3d 28 |S1=.(XS)|...# X=(|
|00004340| 28 28 28 58 53 31 2f 36 | 30 29 2b 58 4d 31 29 2f |(((XS1/6|0)+XM1)/|
|00004350| 36 30 29 2b 58 44 31 29 | 2a 53 4e 0d 14 8c 06 20 |60)+XD1)|*SN.... |
|00004360| e1 0d 14 96 06 20 3a 0d | 14 a0 0d 20 dd f2 4a 75 |..... :.|... ..Ju|
|00004370| 6c 64 61 79 0d 14 aa 12 | 20 e7 20 46 4c 41 47 28 |lday....| . FLAG(|
|00004380| 31 29 3d 31 20 e1 0d 14 | b4 20 20 4d 4e 31 3d 4d |1)=1 ...|. MN1=M|
|00004390| 4e 3a 59 52 31 3d 59 52 | 3a 46 4c 41 47 28 31 29 |N:YR1=YR|:FLAG(1)|
|000043a0| 3d 31 3a 42 3d 30 0d 14 | be 15 20 e7 20 59 52 31 |=1:B=0..|.. . YR1|
|000043b0| 3c 30 20 8c 20 59 52 31 | 2b 3d 31 0d 14 c8 1c 20 |<0 . YR1|+=1.... |
|000043c0| e7 20 4d 4e 3c 33 20 8c | 20 4d 4e 31 2b 3d 31 32 |. MN<3 .| MN1+=12|
|000043d0| 3a 59 52 31 2d 3d 31 0d | 14 d2 15 20 e7 20 59 52 |:YR1-=1.|... . YR|
|000043e0| 3c 31 35 38 32 20 8c 20 | 8d 64 7a 54 0d 14 dc 1d |<1582 . |.dzT....|
|000043f0| 20 e7 20 59 52 3d 31 35 | 38 32 20 80 20 4d 4e 3c | . YR=15|82 . MN<|
|00004400| 31 30 20 8c 20 8d 64 7a | 54 0d 14 e6 25 20 e7 20 |10 . .dz|T...% . |
|00004410| 59 52 3d 31 35 38 32 20 | 80 20 4d 4e 3d 31 30 20 |YR=1582 |. MN=10 |
|00004420| 80 20 44 59 3c 31 35 20 | 8c 20 8d 64 7a 54 0d 14 |. DY<15 |. .dzT..|
|00004430| f0 1e 20 41 3d a8 28 59 | 52 31 2f 31 30 30 29 3a |.. A=.(Y|R1/100):|
|00004440| 42 3d 32 2d 41 2b a8 28 | 41 2f 34 29 0d 14 fa 13 |B=2-A+.(|A/4)....|
|00004450| 20 e7 20 59 52 31 3c 30 | 20 8c 20 8d 54 4e 55 0d | . YR1<0| . .TNU.|
|00004460| 15 04 22 20 43 3d a8 28 | 33 36 35 2e 32 35 2a 59 |.." C=.(|365.25*Y|
|00004470| 52 31 29 2d 36 39 34 30 | 32 35 3a e5 20 8d 54 58 |R1)-6940|25:. .TX|
|00004480| 55 0d 15 0e 25 20 43 3d | a4 49 54 47 28 28 33 36 |U...% C=|.ITG((36|
|00004490| 35 2e 32 35 2a 59 52 31 | 29 2d 30 2e 37 35 29 2d |5.25*YR1|)-0.75)-|
|000044a0| 36 39 34 30 32 35 0d 15 | 18 19 20 44 3d a8 28 33 |694025..|.. D=.(3|
|000044b0| 30 2e 36 30 30 31 2a 28 | 4d 4e 31 2b 31 29 29 0d |0.6001*(|MN1+1)).|
|000044c0| 15 22 15 20 44 4a 44 3d | 42 2b 43 2b 44 2b 44 59 |.". DJD=|B+C+D+DY|
|000044d0| 2d 30 2e 35 0d 15 2c 06 | 20 e1 0d 15 36 06 20 3a |-0.5..,.| ...6. :|
|000044e0| 0d 15 40 0d 20 dd f2 43 | 61 6c 64 61 79 0d 15 4a |..@. ..C|alday..J|
|000044f0| 12 20 e7 20 46 4c 41 47 | 28 32 29 3d 31 20 e1 0d |. . FLAG|(2)=1 ..|
|00004500| 15 54 1e 20 44 3d 44 4a | 44 2b 30 2e 35 3a 49 3d |.T. D=DJ|D+0.5:I=|
|00004510| a4 4c 49 46 28 44 29 3a | 46 3d 44 2d 49 0d 15 5e |.LIF(D):|F=D-I..^|
|00004520| 15 20 e7 20 46 3d 31 20 | 8c 20 46 3d 30 3a 49 2b |. . F=1 |. F=0:I+|
|00004530| 3d 31 0d 15 68 1a 20 e7 | 20 49 20 3c 3d 20 2d 31 |=1..h. .| I <= -1|
|00004540| 31 35 38 36 30 20 8c 20 | 8d 74 46 55 0d 15 72 29 |15860 . |.tFU..r)|
|00004550| 20 41 3d a4 4c 49 46 28 | 28 49 2f 33 36 35 32 34 | A=.LIF(|(I/36524|
|00004560| 2e 32 35 29 2b 39 2e 39 | 38 33 35 37 32 36 45 2d |.25)+9.9|835726E-|
|00004570| 31 29 2b 31 34 0d 15 7c | 16 20 49 3d 49 2b 31 2b |1)+14..||. I=I+1+|
|00004580| 41 2d a4 4c 49 46 28 41 | 2f 34 29 0d 15 86 22 20 |A-.LIF(A|/4)..." |
|00004590| 42 3d a4 4c 49 46 28 28 | 49 2f 33 36 35 2e 32 35 |B=.LIF((|I/365.25|
|000045a0| 29 2b 38 2e 30 32 36 30 | 31 45 2d 31 29 0d 15 90 |)+8.0260|1E-1)...|
|000045b0| 29 20 43 45 3d 49 2d a4 | 4c 49 46 28 28 33 36 35 |) CE=I-.|LIF((365|
|000045c0| 2e 32 35 2a 42 29 2b 37 | 2e 35 30 30 30 31 45 2d |.25*B)+7|.50001E-|
|000045d0| 31 29 2b 34 31 36 0d 15 | 9a 1e 20 47 3d a4 4c 49 |1)+416..|.. G=.LI|
|000045e0| 46 28 43 45 2f 33 30 2e | 36 30 30 31 29 3a 4d 4e |F(CE/30.|6001):MN|
|000045f0| 3d 47 2d 31 0d 15 a4 26 | 20 44 59 3d 43 45 2d a4 |=G-1...&| DY=CE-.|
|00004600| 4c 49 46 28 33 30 2e 36 | 30 30 31 2a 47 29 2b 46 |LIF(30.6|001*G)+F|
|00004610| 3a 59 52 3d 42 2b 31 38 | 39 39 0d 15 ae 17 20 e7 |:YR=B+18|99.... .|
|00004620| 20 47 3e 31 33 2e 35 20 | 8c 20 4d 4e 3d 47 2d 31 | G>13.5 |. MN=G-1|
|00004630| 33 0d 15 b8 19 20 e7 20 | 4d 4e 3c 32 2e 35 20 8c |3.... . |MN<2.5 .|
|00004640| 20 59 52 3d 42 2b 31 39 | 30 30 0d 15 c2 13 20 e7 | YR=B+19|00.... .|
|00004650| 20 59 52 3c 31 20 8c 20 | 59 52 2d 3d 31 0d 15 cc | YR<1 . |YR-=1...|
|00004660| 0e 20 46 4c 41 47 28 32 | 29 3d 31 0d 15 d6 06 20 |. FLAG(2|)=1.... |
|00004670| e1 0d 15 e0 06 20 3a 0d | 15 ea 0c 20 dd f2 47 74 |..... :.|... ..Gt|
|00004680| 69 6d 65 0d 15 f4 17 20 | e7 20 46 4c 41 47 28 33 |ime.... |. FLAG(3|
|00004690| 29 3d 31 20 8c 20 8d 44 | 44 56 0d 15 fe 1c 20 58 |)=1 . .D|DV.... X|
|000046a0| 4d 4e 3d 4d 4e 3a 58 44 | 59 3d 44 59 3a 46 4c 41 |MN=MN:XD|Y=DY:FLA|
|000046b0| 47 28 33 29 3d 31 0d 16 | 08 1f 20 46 4c 41 47 28 |G(3)=1..|.. FLAG(|
|000046c0| 31 29 3d 30 3a f2 4a 75 | 6c 64 61 79 3a 58 44 4a |1)=0:.Ju|lday:XDJ|
|000046d0| 44 3d 44 4a 44 0d 16 12 | 18 20 4d 4e 3d 31 3a 44 |D=DJD...|. MN=1:D|
|000046e0| 59 3d 30 3a 46 4c 41 47 | 28 31 29 3d 30 0d 16 1c |Y=0:FLAG|(1)=0...|
|000046f0| 18 20 f2 4a 75 6c 64 61 | 79 3a 54 3d 44 4a 44 2f |. .Julda|y:T=DJD/|
|00004700| 33 36 35 32 35 0d 16 26 | 2b 20 52 3d 36 2e 36 34 |36525..&|+ R=6.64|
|00004710| 36 30 36 35 36 2b 28 35 | 2e 31 32 36 32 45 2d 32 |60656+(5|.1262E-2|
|00004720| 2b 28 54 2a 32 2e 35 38 | 31 45 2d 35 29 29 2a 54 |+(T*2.58|1E-5))*T|
|00004730| 0d 16 30 2a 20 52 31 3d | 32 34 30 30 2a 28 54 2d |..0* R1=|2400*(T-|
|00004740| 28 28 59 52 2d 31 39 30 | 30 29 2f 31 30 30 29 29 |((YR-190|0)/100))|
|00004750| 3a 42 3d 32 34 2d 52 2d | 52 31 0d 16 3a 21 20 54 |:B=24-R-|R1..:! T|
|00004760| 30 3d 28 28 58 44 4a 44 | 2d 44 4a 44 29 2a 36 2e |0=((XDJD|-DJD)*6.|
|00004770| 35 37 30 39 38 45 2d 32 | 29 2d 42 0d 16 44 13 20 |57098E-2|)-B..D. |
|00004780| e7 20 53 57 32 3d 31 20 | 8c 20 8d 44 76 56 0d 16 |. SW2=1 |. .DvV..|
|00004790| 4e 14 20 e7 20 54 30 3c | 30 20 8c 20 54 30 2b 3d |N. . T0<|0 . T0+=|
|000047a0| 32 34 0d 16 58 0f 20 47 | 54 4d 3d 54 49 4d 2d 54 |24..X. G|TM=TIM-T|
|000047b0| 30 0d 16 62 16 20 e7 20 | 47 54 4d 3c 30 20 8c 20 |0..b. . |GTM<0 . |
|000047c0| 47 54 4d 2b 3d 32 34 0d | 16 6c 22 20 47 54 4d 3d |GTM+=24.|.l" GTM=|
|000047d0| 47 54 4d 2a 39 2e 39 37 | 32 36 39 35 36 37 37 45 |GTM*9.97|2695677E|
|000047e0| 2d 31 3a e5 20 8d 74 54 | 56 0d 16 76 1d 20 47 54 |-1:. .tT|V..v. GT|
|000047f0| 4d 3d 28 54 49 4d 2a 31 | 2e 30 30 32 37 33 37 39 |M=(TIM*1|.0027379|
|00004800| 30 38 29 2b 54 30 0d 16 | 80 17 20 e7 20 47 54 4d |08)+T0..|.. . GTM|
|00004810| 3e 32 34 20 8c 20 47 54 | 4d 2d 3d 32 34 0d 16 8a |>24 . GT|M-=24...|
|00004820| 16 20 e7 20 47 54 4d 3c | 30 20 8c 20 47 54 4d 2b |. . GTM<|0 . GTM+|
|00004830| 3d 32 34 0d 16 94 18 20 | 58 3d 47 54 4d 3a 53 57 |=24.... |X=GTM:SW|
|00004840| 31 3d 31 3a f2 4d 69 6e | 73 65 63 0d 16 9e 16 20 |1=1:.Min|sec.... |
|00004850| 48 53 3d 58 44 3a 4d 53 | 3d 58 4d 3a 53 53 3d 58 |HS=XD:MS|=XM:SS=X|
|00004860| 53 0d 16 a8 1b 20 4d 4e | 3d 58 4d 4e 3a 44 59 3d |S.... MN|=XMN:DY=|
|00004870| 58 44 59 3a 44 4a 44 3d | 58 44 4a 44 0d 16 b2 06 |XDY:DJD=|XDJD....|
|00004880| 20 e1 0d 16 bc 06 20 3a | 0d 16 c6 0c 20 dd f2 45 | ..... :|.... ..E|
|00004890| 71 68 6f 72 0d 16 d0 17 | 20 e7 20 46 4c 41 47 28 |qhor....| . FLAG(|
|000048a0| 34 29 3d 31 20 8c 20 8d | 64 6e 56 0d 16 da 1c 20 |4)=1 . .|dnV.... |
|000048b0| 43 50 48 49 3d 9b 28 50 | 48 49 29 3a 53 50 48 49 |CPHI=.(P|HI):SPHI|
|000048c0| 3d b5 28 50 48 49 29 0d | 16 e4 16 20 46 4c 41 47 |=.(PHI).|... FLAG|
|000048d0| 28 34 29 3d 31 3a 54 50 | 49 3d 32 2a af 0d 16 ee |(4)=1:TP|I=2*....|
|000048e0| 14 20 53 59 3d b5 28 59 | 29 3a 43 59 3d 9b 28 59 |. SY=.(Y|):CY=.(Y|
|000048f0| 29 0d 16 f8 14 20 53 58 | 3d b5 28 58 29 3a 43 58 |).... SX|=.(X):CX|
|00004900| 3d 9b 28 58 29 0d 17 02 | 1e 20 53 51 3d 28 53 59 |=.(X)...|. SQ=(SY|
|00004910| 2a 53 50 48 49 29 2b 28 | 43 59 2a 43 50 48 49 2a |*SPHI)+(|CY*CPHI*|
|00004920| 43 58 29 0d 17 0c 21 20 | 51 3d a4 41 53 4e 28 53 |CX)...! |Q=.ASN(S|
|00004930| 51 29 3a 43 51 3d 9b 28 | 51 29 3a 41 3d 43 50 48 |Q):CQ=.(|Q):A=CPH|
|00004940| 49 2a 43 51 0d 17 16 18 | 20 e7 20 41 3c 31 45 2d |I*CQ....| . A<1E-|
|00004950| 32 30 20 8c 20 41 3d 31 | 45 2d 32 30 0d 17 20 23 |20 . A=1|E-20.. #|
|00004960| 20 43 50 3d 28 53 59 2d | 28 53 50 48 49 2a 53 51 | CP=(SY-|(SPHI*SQ|
|00004970| 29 29 2f 41 3a 50 3d a4 | 41 43 53 28 43 50 29 0d |))/A:P=.|ACS(CP).|
|00004980| 17 2a 15 20 e7 20 53 58 | 3e 30 20 8c 20 50 3d 54 |.*. . SX|>0 . P=T|
|00004990| 50 49 2d 50 0d 17 34 06 | 20 e1 0d 17 3e 06 20 3a |PI-P..4.| ...>. :|
|000049a0| 0d 17 48 0c 20 dd f2 48 | 72 61 6e 67 0d 17 52 11 |..H. ..H|rang..R.|
|000049b0| 20 4c 53 54 3d 47 53 54 | 2b 4c 4f 4e 47 0d 17 5c | LST=GST|+LONG..\|
|000049c0| 1a 20 e7 20 4c 53 54 3e | 32 34 20 8c 20 4c 53 54 |. . LST>|24 . LST|
|000049d0| 3d 4c 53 54 2d 32 34 0d | 17 66 19 20 e7 20 4c 53 |=LST-24.|.f. . LS|
|000049e0| 54 3c 30 20 8c 20 4c 53 | 54 3d 4c 53 54 2b 32 34 |T<0 . LS|T=LST+24|
|000049f0| 0d 17 70 0c 20 50 3d 4c | 53 54 2d 58 0d 17 7a 13 |..p. P=L|ST-X..z.|
|00004a00| 20 e7 20 50 3c 30 20 8c | 20 50 3d 50 2b 32 34 0d | . P<0 .| P=P+24.|
|00004a10| 17 84 06 20 e1 0d 17 8e | 06 20 3a 0d 17 98 0c 20 |... ....|. :.... |
|00004a20| dd f2 4f 62 6c 69 71 0d | 17 a2 12 20 e7 20 46 4c |..Obliq.|... . FL|
|00004a30| 41 47 28 35 29 3d 31 20 | e1 0d 17 ac 0e 20 46 4c |AG(5)=1 |..... FL|
|00004a40| 41 47 28 35 29 3d 31 0d | 17 b6 18 20 f2 4a 75 6c |AG(5)=1.|... .Jul|
|00004a50| 64 61 79 3a 54 3d 44 4a | 44 2f 33 36 35 32 35 0d |day:T=DJ|D/36525.|
|00004a60| 17 c0 2b 20 43 3d 28 28 | 28 2d 31 2e 38 31 45 2d |..+ C=((|(-1.81E-|
|00004a70| 33 2a 54 29 2b 35 2e 39 | 45 2d 33 29 2a 54 2b 34 |3*T)+5.9|E-3)*T+4|
|00004a80| 2e 36 38 34 35 45 31 29 | 2a 54 0d 17 ca 1f 20 45 |.6845E1)|*T.... E|
|00004a90| 50 53 3d 32 2e 33 34 35 | 32 32 39 34 34 34 45 31 |PS=2.345|229444E1|
|00004aa0| 2d 28 43 2f 33 36 30 30 | 29 0d 17 d4 1c 20 45 50 |-(C/3600|).... EP|
|00004ab0| 53 52 3d 45 50 53 2a 31 | 2e 37 35 34 33 32 39 32 |SR=EPS*1|.7543292|
|00004ac0| 35 32 45 2d 32 0d 17 de | 06 20 e1 0d 17 e8 06 20 |52E-2...|. ..... |
|00004ad0| 3a 0d 17 f2 0c 20 dd f2 | 45 71 65 63 6c 0d 17 fc |:.... ..|Eqecl...|
|00004ae0| 17 20 e7 20 46 4c 41 47 | 28 37 29 3d 31 20 8c 20 |. . FLAG|(7)=1 . |
|00004af0| 8d 54 6e 58 0d 18 06 16 | 20 54 50 49 3d 32 2a af |.TnX....| TPI=2*.|
|00004b00| 3a 46 4c 41 47 28 37 29 | 3d 31 0d 18 10 19 20 e7 |:FLAG(7)|=1.... .|
|00004b10| 20 46 4c 41 47 28 36 29 | 3d 30 20 8c 20 44 45 50 | FLAG(6)|=0 . DEP|
|00004b20| 53 3d 30 0d 18 1a 1f 20 | f2 4f 62 6c 69 71 3a 45 |S=0.... |.Obliq:E|
|00004b30| 50 53 31 3d a4 52 41 44 | 28 45 50 53 2b 44 45 50 |PS1=.RAD|(EPS+DEP|
|00004b40| 53 29 0d 18 24 1e 20 53 | 45 50 53 3d b5 28 45 50 |S)..$. S|EPS=.(EP|
|00004b50| 53 31 29 3a 43 45 50 53 | 3d 9b 28 45 50 53 31 29 |S1):CEPS|=.(EPS1)|
|00004b60| 0d 18 2e 14 20 43 59 3d | 9b 28 59 29 3a 53 59 3d |.... CY=|.(Y):SY=|
|00004b70| b5 28 59 29 0d 18 38 1d | 20 e7 20 94 28 43 59 29 |.(Y)..8.| . .(CY)|
|00004b80| 3c 31 45 2d 32 30 20 8c | 20 43 59 3d 31 45 2d 32 |<1E-20 .| CY=1E-2|
|00004b90| 30 0d 18 42 1d 20 54 59 | 3d 53 59 2f 43 59 3a 43 |0..B. TY|=SY/CY:C|
|00004ba0| 58 3d 9b 28 58 29 3a 53 | 58 3d b5 28 58 29 0d 18 |X=.(X):S|X=.(X)..|
|00004bb0| 4c 22 20 53 51 3d 28 53 | 59 2a 43 45 50 53 29 2d |L" SQ=(S|Y*CEPS)-|
|00004bc0| 28 43 59 2a 53 45 50 53 | 2a 53 58 2a 53 57 33 29 |(CY*SEPS|*SX*SW3)|
|00004bd0| 0d 18 56 29 20 51 3d a4 | 41 53 4e 28 53 51 29 3a |..V) Q=.|ASN(SQ):|
|00004be0| 41 3d 28 53 58 2a 43 45 | 50 53 29 2b 28 54 59 2a |A=(SX*CE|PS)+(TY*|
|00004bf0| 53 45 50 53 2a 53 57 33 | 29 0d 18 60 0e 20 50 3d |SEPS*SW3|)..`. P=|
|00004c00| 99 28 41 2f 43 58 29 0d | 18 6a 13 20 e7 20 43 58 |.(A/CX).|.j. . CX|
|00004c10| 3c 30 20 8c 20 50 3d 50 | 2b af 0d 18 74 16 20 e7 |<0 . P=P|+...t. .|
|00004c20| 20 50 3e 54 50 49 20 8c | 20 50 3d 50 2d 54 50 49 | P>TPI .| P=P-TPI|
|00004c30| 0d 18 7e 14 20 e7 20 50 | 3c 30 20 8c 20 50 3d 50 |..~. . P|<0 . P=P|
|00004c40| 2b 54 50 49 0d 18 88 06 | 20 e1 0d 18 92 06 20 3a |+TPI....| ..... :|
|00004c50| 0d 18 9c 0c 20 dd f2 4e | 75 74 61 74 0d 18 a6 12 |.... ..N|utat....|
|00004c60| 20 e7 20 46 4c 41 47 28 | 36 29 3d 31 20 e1 0d 18 | . FLAG(|6)=1 ...|
|00004c70| b0 18 20 46 4c 41 47 28 | 36 29 3d 31 3a 46 4c 41 |.. FLAG(|6)=1:FLA|
|00004c80| 47 28 37 29 3d 30 0d 18 | ba 1f 20 f2 4a 75 6c 64 |G(7)=0..|.. .Juld|
|00004c90| 61 79 3a 54 3d 44 4a 44 | 2f 33 36 35 32 35 3a 54 |ay:T=DJD|/36525:T|
|00004ca0| 32 3d 54 2a 54 0d 18 c4 | 25 20 41 3d 31 2e 30 30 |2=T*T...|% A=1.00|
|00004cb0| 30 30 32 31 33 35 38 45 | 32 2a 54 3a 42 3d 33 36 |0021358E|2*T:B=36|
|00004cc0| 30 2a 28 41 2d a8 28 41 | 29 29 0d 18 ce 1f 20 4c |0*(A-.(A|)).... L|
|00004cd0| 53 3d 32 2e 37 39 36 39 | 36 37 45 32 2b 33 2e 30 |S=2.7969|67E2+3.0|
|00004ce0| 33 45 2d 34 2a 54 32 2b | 42 0d 18 d8 25 20 41 3d |3E-4*T2+|B...% A=|
|00004cf0| 31 2e 33 33 36 38 35 35 | 32 33 31 45 33 2a 54 3a |1.336855|231E3*T:|
|00004d00| 42 3d 33 36 30 2a 28 41 | 2d a8 28 41 29 29 0d 18 |B=360*(A|-.(A))..|
|00004d10| e2 20 20 4c 44 3d 32 2e | 37 30 34 33 34 32 45 32 |. LD=2.|704342E2|
|00004d20| 2d 31 2e 31 33 33 45 2d | 33 2a 54 32 2b 42 0d 18 |-1.133E-|3*T2+B..|
|00004d30| ec 25 20 41 3d 39 2e 39 | 39 39 37 33 36 30 35 36 |.% A=9.9|99736056|
|00004d40| 45 31 2a 54 3a 42 3d 33 | 36 30 2a 28 41 2d a8 28 |E1*T:B=3|60*(A-.(|
|00004d50| 41 29 29 0d 18 f6 1e 20 | 4d 53 3d 33 2e 35 38 34 |A)).... |MS=3.584|
|00004d60| 37 35 38 45 32 2d 31 2e | 35 45 2d 34 2a 54 32 2b |758E2-1.|5E-4*T2+|
|00004d70| 42 0d 19 00 25 20 41 3d | 31 2e 33 32 35 35 35 32 |B...% A=|1.325552|
|00004d80| 33 35 39 45 33 2a 54 3a | 42 3d 33 36 30 2a 28 41 |359E3*T:|B=360*(A|
|00004d90| 2d a8 28 41 29 29 0d 19 | 0a 20 20 4d 44 3d 32 2e |-.(A))..|. MD=2.|
|00004da0| 39 36 31 30 34 36 45 32 | 2b 39 2e 31 39 32 45 2d |961046E2|+9.192E-|
|00004db0| 33 2a 54 32 2b 42 0d 19 | 14 23 20 41 3d 35 2e 33 |3*T2+B..|.# A=5.3|
|00004dc0| 37 32 36 31 36 36 36 37 | 2a 54 3a 42 3d 33 36 30 |72616667|*T:B=360|
|00004dd0| 2a 28 41 2d a8 28 41 29 | 29 0d 19 1e 20 20 4e 4d |*(A-.(A)|)... NM|
|00004de0| 3d 32 2e 35 39 31 38 33 | 33 45 32 2b 32 2e 30 37 |=2.59183|3E2+2.07|
|00004df0| 38 45 2d 33 2a 54 32 2d | 42 0d 19 28 1f 20 54 4c |8E-3*T2-|B..(. TL|
|00004e00| 53 3d 32 2a a4 52 41 44 | 28 4c 53 29 3a 4e 4d 3d |S=2*.RAD|(LS):NM=|
|00004e10| a4 52 41 44 28 4e 4d 29 | 0d 19 32 1f 20 54 4e 4d |.RAD(NM)|..2. TNM|
|00004e20| 3d 32 2a a4 52 41 44 28 | 4e 4d 29 3a 4d 53 3d a4 |=2*.RAD(|NM):MS=.|
|00004e30| 52 41 44 28 4d 53 29 0d | 19 3c 1f 20 54 4c 44 3d |RAD(MS).|.<. TLD=|
|00004e40| 32 2a a4 52 41 44 28 4c | 44 29 3a 4d 44 3d a4 52 |2*.RAD(L|D):MD=.R|
|00004e50| 41 44 28 4d 44 29 0d 19 | 46 da 20 44 50 53 49 3d |AD(MD)..|F. DPSI=|
|00004e60| 28 2d 31 37 2e 32 33 32 | 37 2d 31 2e 37 33 37 45 |(-17.232|7-1.737E|
|00004e70| 2d 32 2a 54 29 2a b5 28 | 4e 4d 29 2b 28 2d 31 2e |-2*T)*.(|NM)+(-1.|
|00004e80| 32 37 32 39 2d 31 2e 33 | 45 2d 34 2a 54 29 2a b5 |2729-1.3|E-4*T)*.|
|00004e90| 28 54 4c 53 29 2b 32 2e | 30 38 38 45 2d 31 2a b5 |(TLS)+2.|088E-1*.|
|00004ea0| 28 54 4e 4d 29 2d 32 2e | 30 33 37 45 2d 31 2a b5 |(TNM)-2.|037E-1*.|
|00004eb0| 28 54 4c 44 29 2b 28 31 | 2e 32 36 31 45 2d 31 2d |(TLD)+(1|.261E-1-|
|00004ec0| 33 2e 31 45 2d 34 2a 54 | 29 2a b5 28 4d 53 29 2b |3.1E-4*T|)*.(MS)+|
|00004ed0| 36 2e 37 35 45 2d 32 2a | b5 28 4d 44 29 2d 28 34 |6.75E-2*|.(MD)-(4|
|00004ee0| 2e 39 37 45 2d 32 2d 31 | 2e 32 45 2d 34 2a 54 29 |.97E-2-1|.2E-4*T)|
|00004ef0| 2a b5 28 54 4c 53 2b 4d | 53 29 2d 33 2e 34 32 45 |*.(TLS+M|S)-3.42E|
|00004f00| 2d 32 2a b5 28 54 4c 44 | 2d 4e 4d 29 2d 32 2e 36 |-2*.(TLD|-NM)-2.6|
|00004f10| 31 45 2d 32 2a b5 28 54 | 4c 44 2b 4d 44 29 2b 32 |1E-2*.(T|LD+MD)+2|
|00004f20| 2e 31 34 45 2d 32 2a b5 | 28 54 4c 53 2d 4d 53 29 |.14E-2*.|(TLS-MS)|
|00004f30| 0d 19 50 48 20 44 50 53 | 49 3d 44 50 53 49 2d 31 |..PH DPS|I=DPSI-1|
|00004f40| 2e 34 39 45 2d 32 2a b5 | 28 54 4c 53 2d 54 4c 44 |.49E-2*.|(TLS-TLD|
|00004f50| 2b 4d 44 29 2b 31 2e 32 | 34 45 2d 32 2a b5 28 54 |+MD)+1.2|4E-2*.(T|
|00004f60| 4c 53 2d 4e 4d 29 2b 31 | 2e 31 34 45 2d 32 2a b5 |LS-NM)+1|.14E-2*.|
|00004f70| 28 54 4c 44 2d 4d 44 29 | 0d 19 5a b0 20 44 45 50 |(TLD-MD)|..Z. DEP|
|00004f80| 53 3d 28 39 2e 32 31 2b | 39 2e 31 45 2d 34 2a 54 |S=(9.21+|9.1E-4*T|
|00004f90| 29 2a 9b 28 4e 4d 29 2b | 28 35 2e 35 32 32 45 2d |)*.(NM)+|(5.522E-|
|00004fa0| 31 2d 32 2e 39 45 2d 34 | 2a 54 29 2a 9b 28 54 4c |1-2.9E-4|*T)*.(TL|
|00004fb0| 53 29 2d 39 2e 30 34 45 | 2d 32 2a 9b 28 54 4e 4d |S)-9.04E|-2*.(TNM|
|00004fc0| 29 2b 38 2e 38 34 45 2d | 32 2a 9b 28 54 4c 44 29 |)+8.84E-|2*.(TLD)|
|00004fd0| 2b 32 2e 31 36 45 2d 32 | 2a 9b 28 54 4c 53 2b 4d |+2.16E-2|*.(TLS+M|
|00004fe0| 53 29 2b 31 2e 38 33 45 | 2d 32 2a 9b 28 54 4c 44 |S)+1.83E|-2*.(TLD|
|00004ff0| 2d 4e 4d 29 2b 31 2e 31 | 33 45 2d 32 2a 9b 28 54 |-NM)+1.1|3E-2*.(T|
|00005000| 4c 44 2b 4d 44 29 2d 39 | 2e 33 45 2d 33 2a 9b 28 |LD+MD)-9|.3E-3*.(|
|00005010| 54 4c 53 2d 4d 53 29 2d | 36 2e 36 45 2d 33 2a 9b |TLS-MS)-|6.6E-3*.|
|00005020| 28 54 4c 53 2d 4e 4d 29 | 0d 19 64 22 20 44 50 53 |(TLS-NM)|..d" DPS|
|00005030| 49 3d 44 50 53 49 2f 33 | 36 30 30 3a 44 45 50 53 |I=DPSI/3|600:DEPS|
|00005040| 3d 44 45 50 53 2f 33 36 | 30 30 0d 19 6e 06 20 e1 |=DEPS/36|00..n. .|
|00005050| 0d 19 78 06 20 3a 0d 19 | 82 0e 20 dd f2 41 6e 6f |..x. :..|.. ..Ano|
|00005060| 6d 61 6c 79 0d 19 8c 0c | 20 54 50 49 3d 32 2a af |maly....| TPI=2*.|
|00005070| 0d 19 96 1c 20 4d 3d 4d | 41 2d 54 50 49 2a a8 28 |.... M=M|A-TPI*.(|
|00005080| 4d 41 2f 54 50 49 29 3a | 45 41 3d 4d 0d 19 a0 17 |MA/TPI):|EA=M....|
|00005090| 20 44 4c 41 3d 45 41 2d | 28 53 2a b5 28 45 41 29 | DLA=EA-|(S*.(EA)|
|000050a0| 29 2d 4d 0d 19 aa 18 20 | e7 20 94 28 44 4c 41 29 |)-M.... |. .(DLA)|
|000050b0| 3c 31 45 2d 36 20 8c 8d | 64 48 59 0d 19 b4 1a 20 |<1E-6 ..|dHY.... |
|000050c0| 44 4c 41 3d 44 4c 41 2f | 28 31 2d 28 53 2a 9b 28 |DLA=DLA/|(1-(S*.(|
|000050d0| 45 41 29 29 29 0d 19 be | 15 20 45 41 3d 45 41 2d |EA)))...|. EA=EA-|
|000050e0| 44 4c 41 3a e5 20 8d 74 | 60 59 0d 19 c8 20 20 54 |DLA:. .t|`Y... T|
|000050f0| 4e 55 32 3d b6 28 28 31 | 2b 53 29 2f 28 31 2d 53 |NU2=.((1|+S)/(1-S|
|00005100| 29 29 2a b7 28 45 41 2f | 32 29 0d 19 d2 11 20 4e |))*.(EA/|2).... N|
|00005110| 55 3d 32 2a 99 28 54 4e | 55 32 29 0d 19 dc 06 20 |U=2*.(TN|U2).... |
|00005120| e1 0d 19 e6 06 20 3a 0d | 19 f0 0a 20 dd f2 53 75 |..... :.|... ..Su|
|00005130| 6e 0d 19 fa 1f 20 f2 4a | 75 6c 64 61 79 3a 54 3d |n.... .J|ulday:T=|
|00005140| 44 4a 44 2f 33 36 35 32 | 35 3a 54 32 3d 54 2a 54 |DJD/3652|5:T2=T*T|
|00005150| 0d 1a 04 25 20 41 3d 31 | 2e 30 30 30 30 32 31 33 |...% A=1|.0000213|
|00005160| 35 39 45 32 2a 54 3a 42 | 3d 33 36 30 2a 28 41 2d |59E2*T:B|=360*(A-|
|00005170| a8 28 41 29 29 0d 1a 0e | 21 20 4c 53 3d 32 2e 37 |.(A))...|! LS=2.7|
|00005180| 39 36 39 36 36 38 45 32 | 2b 33 2e 30 32 35 45 2d |969668E2|+3.025E-|
|00005190| 34 2a 54 32 2b 42 0d 1a | 18 25 20 41 3d 39 2e 39 |4*T2+B..|.% A=9.9|
|000051a0| 39 39 37 33 36 30 34 32 | 45 31 2a 54 3a 42 3d 33 |99736042|E1*T:B=3|
|000051b0| 36 30 2a 28 41 2d a8 28 | 41 29 29 0d 1a 22 2a 20 |60*(A-.(|A)).."* |
|000051c0| 4d 53 3d 33 2e 35 38 34 | 37 35 38 33 45 32 2d 28 |MS=3.584|7583E2-(|
|000051d0| 31 2e 35 45 2d 34 2b 33 | 2e 33 45 2d 36 2a 54 29 |1.5E-4+3|.3E-6*T)|
|000051e0| 2a 54 32 2b 42 0d 1a 2c | 27 20 53 3d 31 2e 36 37 |*T2+B..,|' S=1.67|
|000051f0| 35 31 30 34 45 2d 32 2d | 34 2e 31 38 45 2d 35 2a |5104E-2-|4.18E-5*|
|00005200| 54 2d 31 2e 32 36 45 2d | 37 2a 54 32 0d 1a 36 19 |T-1.26E-|7*T2..6.|
|00005210| 20 4d 41 3d a4 52 41 44 | 28 4d 53 29 3a f2 41 6e | MA=.RAD|(MS):.An|
|00005220| 6f 6d 61 6c 79 0d 1a 40 | 25 20 41 3d 36 2e 32 35 |omaly..@|% A=6.25|
|00005230| 35 32 30 39 34 37 32 45 | 31 2a 54 3a 42 3d 33 36 |5209472E|1*T:B=36|
|00005240| 30 2a 28 41 2d a8 28 41 | 29 29 0d 1a 4a 16 20 41 |0*(A-.(A|))..J. A|
|00005250| 31 3d a4 52 41 44 28 31 | 35 33 2e 32 33 2b 42 29 |1=.RAD(1|53.23+B)|
|00005260| 0d 1a 54 25 20 41 3d 31 | 2e 32 35 31 30 34 31 38 |..T% A=1|.2510418|
|00005270| 39 34 45 32 2a 54 3a 42 | 3d 33 36 30 2a 28 41 2d |94E2*T:B|=360*(A-|
|00005280| a8 28 41 29 29 0d 1a 5e | 16 20 42 31 3d a4 52 41 |.(A))..^|. B1=.RA|
|00005290| 44 28 32 31 36 2e 35 37 | 2b 42 29 0d 1a 68 25 20 |D(216.57|+B)..h% |
|000052a0| 41 3d 39 2e 31 35 36 37 | 36 36 30 32 38 45 31 2a |A=9.1567|66028E1*|
|000052b0| 54 3a 42 3d 33 36 30 2a | 28 41 2d a8 28 41 29 29 |T:B=360*|(A-.(A))|
|000052c0| 0d 1a 72 16 20 43 31 3d | a4 52 41 44 28 33 31 32 |..r. C1=|.RAD(312|
|000052d0| 2e 36 39 2b 42 29 0d 1a | 7c 25 20 41 3d 31 2e 32 |.69+B)..||% A=1.2|
|000052e0| 33 36 38 35 33 30 39 35 | 45 33 2a 54 3a 42 3d 33 |36853095|E3*T:B=3|
|000052f0| 36 30 2a 28 41 2d a8 28 | 41 29 29 0d 1a 86 21 20 |60*(A-.(|A))...! |
|00005300| 44 31 3d a4 52 41 44 28 | 33 35 30 2e 37 34 2d 31 |D1=.RAD(|350.74-1|
|00005310| 2e 34 34 45 2d 33 2a 54 | 32 2b 42 29 0d 1a 90 1b |.44E-3*T|2+B)....|
|00005320| 20 45 31 3d a4 52 41 44 | 28 32 33 31 2e 31 39 2b | E1=.RAD|(231.19+|
|00005330| 32 30 2e 32 2a 54 29 0d | 1a 9a 25 20 41 3d 31 2e |20.2*T).|..% A=1.|
|00005340| 38 33 31 33 35 33 32 30 | 38 45 32 2a 54 3a 42 3d |83135320|8E2*T:B=|
|00005350| 33 36 30 2a 28 41 2d a8 | 28 41 29 29 0d 1a a4 15 |360*(A-.|(A))....|
|00005360| 20 48 31 3d a4 52 41 44 | 28 33 35 33 2e 34 2b 42 | H1=.RAD|(353.4+B|
|00005370| 29 0d 1a ae 4a 20 44 4c | 3d 31 2e 33 34 45 2d 33 |)...J DL|=1.34E-3|
|00005380| 2a 9b 28 41 31 29 2b 31 | 2e 35 34 45 2d 33 2a 9b |*.(A1)+1|.54E-3*.|
|00005390| 28 42 31 29 2b 32 45 2d | 33 2a 9b 28 43 31 29 2b |(B1)+2E-|3*.(C1)+|
|000053a0| 31 2e 37 39 45 2d 33 2a | b5 28 44 31 29 2b 31 2e |1.79E-3*|.(D1)+1.|
|000053b0| 37 38 45 2d 33 2a b5 28 | 45 31 29 0d 1a b8 50 20 |78E-3*.(|E1)...P |
|000053c0| 44 52 3d 35 2e 34 33 45 | 2d 36 2a b5 28 41 31 29 |DR=5.43E|-6*.(A1)|
|000053d0| 2b 31 2e 35 37 35 45 2d | 35 2a b5 28 42 31 29 2b |+1.575E-|5*.(B1)+|
|000053e0| 31 2e 36 32 37 45 2d 35 | 2a b5 28 43 31 29 2b 33 |1.627E-5|*.(C1)+3|
|000053f0| 2e 30 37 36 45 2d 35 2a | 9b 28 44 31 29 2b 39 2e |.076E-5*|.(D1)+9.|
|00005400| 32 37 45 2d 36 2a b5 28 | 48 31 29 0d 1a c2 22 20 |27E-6*.(|H1)..." |
|00005410| 4c 53 4e 3d 4e 55 2b a4 | 52 41 44 28 4c 53 2d 4d |LSN=NU+.|RAD(LS-M|
|00005420| 53 2b 44 4c 29 3a 54 50 | 49 3d 32 2a af 0d 1a cc |S+DL):TP|I=2*....|
|00005430| 21 20 52 53 4e 3d 31 2e | 30 30 30 30 30 30 32 2a |! RSN=1.|0000002*|
|00005440| 28 31 2d 53 2a 9b 28 45 | 41 29 29 2b 44 52 0d 1a |(1-S*.(E|A))+DR..|
|00005450| d6 20 20 e7 20 4c 53 4e | 3c 30 20 8c 20 4c 53 4e |. . LSN|<0 . LSN|
|00005460| 3d 4c 53 4e 2b 54 50 49 | 3a e5 8d 64 56 5a 0d 1a |=LSN+TPI|:..dVZ..|
|00005470| e0 23 20 e7 20 4c 53 4e | 3e 54 50 49 20 8c 20 4c |.# . LSN|>TPI . L|
|00005480| 53 4e 3d 4c 53 4e 2d 54 | 50 49 3a e5 20 8d 64 60 |SN=LSN-T|PI:. .d`|
|00005490| 5a 0d 1a ea 06 20 e1 0d | 1a f4 06 20 3a 0d 1a fe |Z.... ..|... :...|
|000054a0| 0c 20 dd f2 53 75 6e 72 | 73 0d 1b 08 16 20 44 59 |. ..Sunr|s.... DY|
|000054b0| 30 3d 44 59 3a 44 59 3d | 44 59 30 2b 30 2e 35 0d |0=DY:DY=|DY0+0.5.|
|000054c0| 1b 12 0d 20 f2 53 75 6e | 72 73 75 6e 0d 1b 1c 12 |... .Sun|rsun....|
|000054d0| 20 e7 20 45 52 52 31 20 | 3c 3e 20 30 20 e1 0d 1b | . ERR1 |<> 0 ...|
|000054e0| 26 22 20 41 4c 3d 4c 4f | 4e 47 3a 54 52 3d 4c 53 |&" AL=LO|NG:TR=LS|
|000054f0| 54 52 2d 41 4c 3a 54 53 | 3d 4c 53 54 53 2d 41 4c |TR-AL:TS|=LSTS-AL|
|00005500| 0d 1b 30 22 20 f2 43 6f | 72 72 65 63 74 3a 44 59 |..0" .Co|rrect:DY|
|00005510| 3d 44 59 30 3a 54 49 4d | 3d 54 52 3a 53 57 32 3d |=DY0:TIM|=TR:SW2=|
|00005520| 2d 31 0d 1b 3a 19 20 f2 | 47 74 69 6d 65 3a 45 52 |-1..:. .|Gtime:ER|
|00005530| 52 32 3d 30 3a 45 52 52 | 33 3d 30 0d 1b 44 1c 20 |R2=0:ERR|3=0..D. |
|00005540| e7 20 47 54 4d 3c 36 2e | 35 35 32 45 2d 32 20 8c |. GTM<6.|552E-2 .|
|00005550| 20 45 52 52 33 3d 31 0d | 1b 4e 1b 20 47 54 4d 52 | ERR3=1.|.N. GTMR|
|00005560| 3d 47 54 4d 3a 54 49 4d | 3d 54 53 3a f2 47 74 69 |=GTM:TIM|=TS:.Gti|
|00005570| 6d 65 0d 1b 58 16 20 47 | 54 4d 53 3d 47 54 4d 3a |me..X. G|TMS=GTM:|
|00005580| 44 4a 44 30 3d 44 4a 44 | 0d 1b 62 1e 20 44 4a 44 |DJD0=DJD|..b. DJD|
|00005590| 3d 44 4a 44 30 2b 47 54 | 4d 52 2f 32 34 3a f2 53 |=DJD0+GT|MR/24:.S|
|000055a0| 75 6e 72 73 75 6e 0d 1b | 6c 11 20 e7 20 45 52 52 |unrsun..|l. . ERR|
|000055b0| 31 20 3c 3e 30 20 e1 0d | 1b 76 18 20 41 5a 52 30 |1 <>0 ..|.v. AZR0|
|000055c0| 3d 41 5a 52 3a 54 52 3d | 4c 53 54 52 2d 41 4c 0d |=AZR:TR=|LSTR-AL.|
|000055d0| 1b 80 1e 20 44 4a 44 3d | 44 4a 44 30 2b 47 54 4d |... DJD=|DJD0+GTM|
|000055e0| 53 2f 32 34 3a f2 53 75 | 6e 72 73 75 6e 0d 1b 8a |S/24:.Su|nrsun...|
|000055f0| 11 20 e7 20 45 52 52 31 | 20 3c 3e 30 20 e1 0d 1b |. . ERR1| <>0 ...|
|00005600| 94 06 20 3a 0d 1b 9e 21 | 20 41 5a 53 30 3d 41 5a |.. :...!| AZS0=AZ|
|00005610| 53 3a 54 53 3d 4c 53 54 | 53 2d 41 4c 3a f2 43 6f |S:TS=LST|S-AL:.Co|
|00005620| 72 72 65 63 74 0d 1b a8 | 12 20 54 49 4d 3d 54 52 |rrect...|. TIM=TR|
|00005630| 3a f2 47 74 69 6d 65 0d | 1b b2 1c 20 e7 20 47 54 |:.Gtime.|... . GT|
|00005640| 4d 3c 36 2e 35 35 32 45 | 2d 32 20 8c 20 45 52 52 |M<6.552E|-2 . ERR|
|00005650| 32 3d 31 0d 1b bc 19 20 | 48 53 52 3d 48 53 3a 4d |2=1.... |HSR=HS:M|
|00005660| 53 52 3d 4d 53 3a 53 53 | 52 3d 53 53 0d 1b c6 12 |SR=MS:SS|R=SS....|
|00005670| 20 54 49 4d 3d 54 53 3a | f2 47 74 69 6d 65 0d 1b | TIM=TS:|.Gtime..|
|00005680| d0 1c 20 e7 20 47 54 4d | 3c 36 2e 35 35 32 45 2d |.. . GTM|<6.552E-|
|00005690| 32 20 8c 20 45 52 52 33 | 3d 31 0d 1b da 19 20 48 |2 . ERR3|=1.... H|
|000056a0| 53 53 3d 48 53 3a 4d 53 | 53 3d 4d 53 3a 53 53 53 |SS=HS:MS|S=MS:SSS|
|000056b0| 3d 53 53 0d 1b e4 06 20 | e1 0d 1b ee 06 20 3a 0d |=SS.... |..... :.|
|000056c0| 1b f8 0e 20 dd f2 43 6f | 72 72 65 63 74 0d 1c 02 |... ..Co|rrect...|
|000056d0| 16 20 e7 20 54 52 3c 30 | 20 8c 20 54 52 3d 54 52 |. . TR<0| . TR=TR|
|000056e0| 2b 32 34 0d 1c 0c 16 20 | e7 20 54 53 3c 30 20 8c |+24.... |. TS<0 .|
|000056f0| 20 54 53 3d 54 53 2b 32 | 34 0d 1c 16 17 20 e7 20 | TS=TS+2|4.... . |
|00005700| 54 52 3e 32 34 20 8c 20 | 54 52 3d 54 52 2d 32 34 |TR>24 . |TR=TR-24|
|00005710| 0d 1c 20 17 20 e7 20 54 | 53 3e 32 34 20 8c 20 54 |.. . . T|S>24 . T|
|00005720| 53 3d 54 53 2d 32 34 0d | 1c 2a 06 20 e1 0d 1c 34 |S=TS-24.|.*. ...4|
|00005730| 06 20 3a 0d 1c 3e 0e 20 | dd f2 53 75 6e 72 73 75 |. :..>. |..Sunrsu|
|00005740| 6e 0d 1c 48 15 20 f2 53 | 75 6e 3a f2 4e 75 74 61 |n..H. .S|un:.Nuta|
|00005750| 74 3a 48 54 3d 30 0d 1c | 52 28 20 58 3d 4c 53 4e |t:HT=0..|R( X=LSN|
|00005760| 2b 31 2e 37 34 35 33 32 | 39 32 35 32 45 2d 32 2a |+1.74532|9252E-2*|
|00005770| 28 44 50 53 49 2d 35 2e | 36 39 45 2d 33 29 0d 1c |(DPSI-5.|69E-3)..|
|00005780| 5c 16 20 59 3d 30 3a 53 | 57 33 3d 2d 31 3a f2 45 |\. Y=0:S|W3=-1:.E|
|00005790| 71 65 63 6c 0d 1c 66 1f | 20 58 3d 33 2e 38 31 39 |qecl..f.| X=3.819|
|000057a0| 37 31 38 36 33 34 2a 50 | 3a 59 3d 51 3a f2 52 69 |718634*P|:Y=Q:.Ri|
|000057b0| 73 65 74 0d 1c 70 06 20 | e1 0d 1c 7a 06 20 3a 0d |set..p. |...z. :.|
|000057c0| 1c 84 0c 20 dd f2 52 69 | 73 65 74 0d 1c 8e 17 20 |... ..Ri|set.... |
|000057d0| e7 20 46 4c 41 47 28 39 | 29 3d 31 20 8c 20 8d 74 |. FLAG(9|)=1 . .t|
|000057e0| 6c 5c 0d 1c 98 1c 20 43 | 50 48 49 3d 9b 28 50 48 |l\.... C|PHI=.(PH|
|000057f0| 49 29 3a 53 50 48 49 3d | b5 28 50 48 49 29 0d 1c |I):SPHI=|.(PHI)..|
|00005800| a2 16 20 54 50 49 3d 32 | 2a af 3a 46 4c 41 47 28 |.. TPI=2|*.:FLAG(|
|00005810| 39 29 3d 31 0d 1c ac 16 | 20 43 59 3d 9b 28 59 29 |9)=1....| CY=.(Y)|
|00005820| 3a 41 3d 43 59 2a 43 50 | 48 49 0d 1c b6 1b 20 e7 |:A=CY*CP|HI.... .|
|00005830| 20 94 28 41 29 3c 31 45 | 2d 31 30 20 f2 45 72 72 | .(A)<1E|-10 .Err|
|00005840| 6f 72 33 3a e1 0d 1c c0 | 11 20 43 50 53 49 3d 53 |or3:....|. CPSI=S|
|00005850| 50 48 49 2f 43 59 0d 1c | ca 16 20 e7 20 43 50 53 |PHI/CY..|.. . CPS|
|00005860| 49 3e 31 20 8c 20 43 50 | 53 49 3d 31 0d 1c d4 18 |I>1 . CP|SI=1....|
|00005870| 20 e7 20 43 50 53 49 3c | 2d 31 20 8c 20 43 50 53 | . CPSI<|-1 . CPS|
|00005880| 49 3d 2d 31 0d 1c de 1f | 20 50 53 49 3d a4 41 43 |I=-1....| PSI=.AC|
|00005890| 53 28 43 50 53 49 29 3a | 53 50 53 49 3d b5 28 50 |S(CPSI):|SPSI=.(P|
|000058a0| 53 49 29 0d 1c e8 20 20 | 44 48 3d 44 49 53 2a 53 |SI)... |DH=DIS*S|
|000058b0| 50 53 49 3a 59 31 3d 59 | 2b 28 44 49 53 2a 43 50 |PSI:Y1=Y|+(DIS*CP|
|000058c0| 53 49 29 0d 1c f2 16 20 | 53 59 3d b5 28 59 31 29 |SI).... |SY=.(Y1)|
|000058d0| 3a 54 59 3d b7 28 59 31 | 29 0d 1c fc 19 20 43 48 |:TY=.(Y1|).... CH|
|000058e0| 3d 28 2d 31 2a 53 50 48 | 49 2a 54 59 29 2f 43 50 |=(-1*SPH|I*TY)/CP|
|000058f0| 48 49 0d 1d 06 16 20 e7 | 20 43 48 3c 2d 31 20 f2 |HI.... .| CH<-1 .|
|00005900| 45 72 72 6f 72 31 3a e1 | 0d 1d 10 15 20 e7 20 43 |Error1:.|.... . C|
|00005910| 48 3e 31 20 f2 45 72 72 | 6f 72 32 3a e1 0d 1d 1a |H>1 .Err|or2:....|
|00005920| 16 20 45 52 52 31 3d 30 | 3a 48 3d a4 41 43 53 28 |. ERR1=0|:H=.ACS(|
|00005930| 43 48 29 0d 1d 24 19 20 | 48 3d 28 48 2b 44 48 29 |CH)..$. |H=(H+DH)|
|00005940| 2a 33 2e 38 31 39 37 31 | 38 36 33 34 0d 1d 2e 19 |*3.81971|8634....|
|00005950| 20 4c 53 54 52 3d 32 34 | 2b 58 2d 48 3a 4c 53 54 | LSTR=24|+X-H:LST|
|00005960| 53 3d 58 2b 48 0d 1d 38 | 20 20 43 41 5a 52 3d 53 |S=X+H..8| CAZR=S|
|00005970| 59 2f 43 50 48 49 3a 41 | 5a 52 3d a4 41 43 53 28 |Y/CPHI:A|ZR=.ACS(|
|00005980| 43 41 5a 52 29 0d 1d 42 | 24 20 41 5a 53 3d 54 50 |CAZR)..B|$ AZS=TP|
|00005990| 49 2d 41 5a 52 3a 42 3d | 4c 53 54 52 3a 43 3d 32 |I-AZR:B=|LSTR:C=2|
|000059a0| 34 3a f2 41 64 6a 75 73 | 74 0d 1d 4c 21 20 4c 53 |4:.Adjus|t..L! LS|
|000059b0| 54 52 3d 42 3a 42 3d 4c | 53 54 53 3a f2 41 64 6a |TR=B:B=L|STS:.Adj|
|000059c0| 75 73 74 3a 4c 53 54 53 | 3d 42 0d 1d 56 1e 20 42 |ust:LSTS|=B..V. B|
|000059d0| 3d 41 5a 52 3a 43 3d 54 | 50 49 3a f2 41 64 6a 75 |=AZR:C=T|PI:.Adju|
|000059e0| 73 74 3a 41 5a 52 3d 42 | 0d 1d 60 18 20 42 3d 41 |st:AZR=B|..`. B=A|
|000059f0| 5a 53 3a f2 41 64 6a 75 | 73 74 3a 41 5a 53 3d 42 |ZS:.Adju|st:AZS=B|
|00005a00| 0d 1d 6a 06 20 e1 0d 1d | 74 06 20 3a 0d 1d 7e 0d |..j. ...|t. :..~.|
|00005a10| 20 dd f2 41 64 6a 75 73 | 74 0d 1d 88 12 20 e7 20 | ..Adjus|t.... . |
|00005a20| 42 3c 30 20 8c 20 42 3d | 42 2b 43 0d 1d 92 12 20 |B<0 . B=|B+C.... |
|00005a30| e7 20 42 3e 43 20 8c 20 | 42 3d 42 2d 43 0d 1d 9c |. B>C . |B=B-C...|
|00005a40| 06 20 e1 0d 1d a6 06 20 | 3a 0d 1d b0 0d 20 dd f2 |. ..... |:.... ..|
|00005a50| 45 72 72 6f 72 31 0d 1d | ba 21 20 45 52 52 31 3d |Error1..|.! ERR1=|
|00005a60| 2d 31 3a f1 22 2a 2a 20 | 63 69 72 63 75 6d 70 6f |-1:."** |circumpo|
|00005a70| 6c 61 72 20 2a 2a 22 0d | 1d c4 06 20 e1 0d 1d ce |lar **".|... ....|
|00005a80| 06 20 3a 0d 1d d8 0d 20 | dd f2 45 72 72 6f 72 32 |. :.... |..Error2|
|00005a90| 0d 1d e2 20 20 45 52 52 | 31 3d 31 3a f1 22 2a 2a |... ERR|1=1:."**|
|00005aa0| 20 6e 65 76 65 72 20 72 | 69 73 65 73 20 2a 2a 22 | never r|ises **"|
|00005ab0| 0d 1d ec 06 20 e1 0d 1d | f6 06 20 3a 0d 1e 00 10 |.... ...|.. :....|
|00005ac0| 20 dd 52 50 4f 43 45 72 | 72 6f 72 33 0d 1e 0a 2b | .RPOCEr|ror3...+|
|00005ad0| 20 45 52 52 31 3d 32 3a | f1 22 2a 2a 20 69 6d 70 | ERR1=2:|."** imp|
|00005ae0| 6f 73 73 69 62 6c 65 20 | 63 61 6c 63 75 6c 61 74 |ossible |calculat|
|00005af0| 69 6f 6e 20 2a 2a 22 0d | 1e 14 06 20 e1 0d 1e 1e |ion **".|... ....|
|00005b00| 06 20 3a 0d 1e 28 0f 20 | dd f2 50 65 6c 65 6d 65 |. :..(. |..Peleme|
|00005b10| 6e 74 0d 1e 32 25 20 dc | 32 33 38 2e 30 34 39 32 |nt..2% .|238.0492|
|00005b20| 35 37 2c 38 2e 34 33 34 | 31 37 32 31 38 33 2c 33 |57,8.434|172183,3|
|00005b30| 2e 33 34 37 45 2d 34 0d | 1e 3c 0e 20 dc 2d 31 2e |.347E-4.|.<. .-1.|
|00005b40| 36 35 45 2d 36 0d 1e 46 | 26 20 dc 31 2e 32 37 32 |65E-6..F|& .1.272|
|00005b50| 30 39 37 32 45 31 2c 31 | 2e 36 30 39 39 36 31 37 |0972E1,1|.6099617|
|00005b60| 2c 31 2e 30 35 36 32 37 | 45 2d 33 0d 1e 50 0e 20 |,1.05627|E-3..P. |
|00005b70| dc 2d 33 2e 34 33 45 2d | 36 0d 1e 5a 25 20 dc 34 |.-3.43E-|6..Z% .4|
|00005b80| 2e 38 33 33 34 37 35 45 | 2d 32 2c 31 2e 36 34 31 |.833475E|-2,1.641|
|00005b90| 38 45 2d 34 2c 2d 34 2e | 36 37 36 45 2d 37 0d 1e |8E-4,-4.|676E-7..|
|00005ba0| 64 0d 20 dc 2d 31 2e 37 | 45 2d 39 0d 1e 6e 22 20 |d. .-1.7|E-9..n" |
|00005bb0| dc 31 2e 33 30 38 37 33 | 36 2c 2d 35 2e 36 39 36 |.1.30873|6,-5.696|
|00005bc0| 31 45 2d 33 2c 33 2e 39 | 45 2d 36 2c 30 0d 1e 78 |1E-3,3.9|E-6,0..x|
|00005bd0| 2b 20 dc 20 39 39 2e 34 | 34 33 34 31 34 2c 31 2e |+ . 99.4|43414,1.|
|00005be0| 30 31 30 35 33 2c 33 2e | 35 32 32 32 45 2d 34 2c |01053,3.|5222E-4,|
|00005bf0| 2d 38 2e 35 31 45 2d 36 | 0d 1e 82 1a 20 dc 35 2e |-8.51E-6|.... .5.|
|00005c00| 32 30 32 35 36 31 2c 31 | 39 36 2e 37 34 2c 2d 39 |202561,1|96.74,-9|
|00005c10| 2e 34 0d 1e 8c 06 20 3a | 0d 1e 96 18 20 f2 4a 75 |.4.... :|.... .Ju|
|00005c20| 6c 64 61 79 3a 54 3d 44 | 4a 44 2f 33 36 35 32 35 |lday:T=D|JD/36525|
|00005c30| 0d 1e a0 08 20 49 3d 31 | 0d 1e aa 19 20 f3 41 30 |.... I=1|.... .A0|
|00005c40| 2c 41 31 2c 41 32 2c 41 | 33 3a 41 41 3d 41 31 2a |,A1,A2,A|3:AA=A1*|
|00005c50| 54 0d 1e b4 15 20 42 3d | 33 36 30 2a 28 41 41 2d |T.... B=|360*(AA-|
|00005c60| a8 28 41 41 29 29 0d 1e | be 21 20 50 4c 41 4e 28 |.(AA))..|.! PLAN(|
|00005c70| 49 2c 31 29 3d 41 30 2b | 42 2b 28 41 33 2a 54 2b |I,1)=A0+|B+(A3*T+|
|00005c80| 41 32 29 2a 54 2a 54 0d | 1e c8 35 20 e7 20 50 4c |A2)*T*T.|..5 . PL|
|00005c90| 41 4e 28 49 2c 31 29 3e | 33 36 30 20 8c 20 50 4c |AN(I,1)>|360 . PL|
|00005ca0| 41 4e 28 49 2c 31 29 3d | 50 4c 41 4e 28 49 2c 31 |AN(I,1)=|PLAN(I,1|
|00005cb0| 29 2d 33 36 30 3a e5 20 | 8d 64 48 5e 0d 1e d2 33 |)-360:. |.dH^...3|
|00005cc0| 20 e7 20 50 4c 41 4e 28 | 49 2c 31 29 3c 30 20 8c | . PLAN(|I,1)<0 .|
|00005cd0| 20 50 4c 41 4e 28 49 2c | 31 29 3d 50 4c 41 4e 28 | PLAN(I,|1)=PLAN(|
|00005ce0| 49 2c 31 29 2b 33 36 30 | 3a e5 20 8d 64 52 5e 0d |I,1)+360|:. .dR^.|
|00005cf0| 1e dc 2d 20 50 4c 41 4e | 28 49 2c 32 29 3d 28 41 |..- PLAN|(I,2)=(A|
|00005d00| 31 2a 39 2e 38 35 36 32 | 36 33 45 2d 33 29 2b 28 |1*9.8562|63E-3)+(|
|00005d10| 41 32 2b 41 33 29 2f 33 | 36 35 32 35 0d 1e e6 1c |A2+A3)/3|6525....|
|00005d20| 20 e3 20 4a 3d 33 20 b8 | 20 36 3a f3 20 41 30 2c | . J=3 .| 6:. A0,|
|00005d30| 41 31 2c 41 32 2c 41 33 | 0d 1e f0 24 20 50 4c 41 |A1,A2,A3|...$ PLA|
|00005d40| 4e 28 49 2c 4a 29 3d 28 | 28 41 33 2a 54 2b 41 32 |N(I,J)=(|(A3*T+A2|
|00005d50| 29 2a 54 2b 41 31 29 2a | 54 2b 41 30 0d 1e fa 08 |)*T+A1)*|T+A0....|
|00005d60| 20 ed 20 4a 0d 1f 04 24 | 20 f3 20 50 4c 41 4e 28 | . J...$| . PLAN(|
|00005d70| 49 2c 37 29 2c 50 4c 41 | 4e 28 49 2c 38 29 2c 50 |I,7),PLA|N(I,8),P|
|00005d80| 4c 41 4e 28 49 2c 39 29 | 0d 1f 0e 06 20 f7 0d 1f |LAN(I,9)|.... ...|
|00005d90| 18 06 20 e1 0d 1f 22 06 | 20 3a 0d 1f 2c 0c 20 dd |.. ...".| :..,. .|
|00005da0| f2 50 6c 61 6e 73 0d 1f | 36 1a 20 f2 50 65 6c 65 |.Plans..|6. .Pele|
|00005db0| 6d 65 6e 74 3a 44 54 3d | 30 3a 50 41 53 53 3d 30 |ment:DT=|0:PASS=0|
|00005dc0| 0d 1f 40 10 20 f2 53 75 | 6e 3a 4d 41 53 3d 4d 41 |..@. .Su|n:MAS=MA|
|00005dd0| 0d 1f 4a 14 20 52 45 3d | 52 53 4e 3a 4c 47 3d 4c |..J. RE=|RSN:LG=L|
|00005de0| 53 4e 2b af 0d 1f 54 0e | 20 e3 20 4a 3d 31 20 b8 |SN+...T.| . J=1 .|
|00005df0| 20 38 0d 1f 5e 32 20 4d | 41 50 28 4a 29 3d a4 52 | 8..^2 M|AP(J)=.R|
|00005e00| 41 44 28 50 4c 41 4e 28 | 4a 2c 31 29 2d 50 4c 41 |AD(PLAN(|J,1)-PLA|
|00005e10| 4e 28 4a 2c 33 29 2d 44 | 54 2a 50 4c 41 4e 28 4a |N(J,3)-D|T*PLAN(J|
|00005e20| 2c 32 29 29 0d 1f 68 08 | 20 ed 20 4a 0d 1f 72 19 |,2))..h.| . J..r.|
|00005e30| 20 44 4c 3d 30 3a 44 52 | 3d 30 3a 44 4d 4c 3d 30 | DL=0:DR|=0:DML=0|
|00005e40| 3a 44 53 3d 30 0d 1f 7c | 14 20 44 4d 3d 30 3a 44 |:DS=0..||. DM=0:D|
|00005e50| 41 3d 30 3a 44 48 4c 3d | 30 0d 1f 86 0d 20 f2 4a |A=0:DHL=|0.... .J|
|00005e60| 75 70 69 74 65 72 0d 1f | 90 06 20 3a 0d 1f 9a 20 |upiter..|.. :... |
|00005e70| 20 53 3d 50 4c 41 4e 28 | 31 2c 34 29 2b 44 53 3a | S=PLAN(|1,4)+DS:|
|00005e80| 4d 41 3d 4d 41 50 28 31 | 29 2b 44 4d 0d 1f a4 0d |MA=MAP(1|)+DM....|
|00005e90| 20 f2 41 6e 6f 6d 61 6c | 79 0d 1f ae 2a 20 52 50 | .Anomal|y...* RP|
|00005ea0| 3d 28 50 4c 41 4e 28 31 | 2c 37 29 2b 44 41 29 2a |=(PLAN(1|,7)+DA)*|
|00005eb0| 28 31 2d 53 2a 53 29 2f | 28 31 2b 53 2a 9b 28 4e |(1-S*S)/|(1+S*.(N|
|00005ec0| 55 29 29 0d 1f b8 27 20 | 4c 50 3d a4 44 45 47 28 |U))...' |LP=.DEG(|
|00005ed0| 4e 55 29 2b 50 4c 41 4e | 28 31 2c 33 29 2b a4 44 |NU)+PLAN|(1,3)+.D|
|00005ee0| 45 47 28 44 4d 4c 2d 44 | 4d 29 0d 1f c2 23 20 4c |EG(DML-D|M)...# L|
|00005ef0| 50 3d a4 52 41 44 28 4c | 50 29 3a 4f 4d 3d a4 52 |P=.RAD(L|P):OM=.R|
|00005f00| 41 44 28 50 4c 41 4e 28 | 31 2c 36 29 29 0d 1f cc |AD(PLAN(|1,6))...|
|00005f10| 21 20 4c 4f 3d 4c 50 2d | 4f 4d 3a 53 4c 4f 3d b5 |! LO=LP-|OM:SLO=.|
|00005f20| 28 4c 4f 29 3a 43 4c 4f | 3d 9b 28 4c 4f 29 0d 1f |(LO):CLO|=.(LO)..|
|00005f30| d6 21 20 49 4e 43 3d a4 | 52 41 44 28 50 4c 41 4e |.! INC=.|RAD(PLAN|
|00005f40| 28 31 2c 35 29 29 3a 52 | 50 3d 52 50 2b 44 52 0d |(1,5)):R|P=RP+DR.|
|00005f50| 1f e0 21 20 53 50 53 49 | 3d 53 4c 4f 2a b5 28 49 |..! SPSI|=SLO*.(I|
|00005f60| 4e 43 29 3a 59 3d 53 4c | 4f 2a 9b 28 49 4e 43 29 |NC):Y=SL|O*.(INC)|
|00005f70| 0d 1f ea 23 20 50 53 49 | 3d a4 41 53 4e 28 53 50 |...# PSI|=.ASN(SP|
|00005f80| 53 49 29 2b 44 48 4c 3a | 53 50 53 49 3d b5 28 50 |SI)+DHL:|SPSI=.(P|
|00005f90| 53 49 29 0d 1f f4 1d 20 | 4c 50 44 3d 99 28 59 2f |SI).... |LPD=.(Y/|
|00005fa0| 43 4c 4f 29 2b 4f 4d 2b | a4 52 41 44 28 44 4c 29 |CLO)+OM+|.RAD(DL)|
|00005fb0| 0d 1f fe 18 20 e7 20 43 | 4c 4f 3c 30 20 8c 20 4c |.... . C|LO<0 . L|
|00005fc0| 50 44 3d 4c 50 44 2b af | 0d 20 08 1c 20 e7 20 4c |PD=LPD+.|. .. . L|
|00005fd0| 50 44 3e 54 50 49 20 8c | 20 4c 50 44 3d 4c 50 44 |PD>TPI .| LPD=LPD|
|00005fe0| 2d 54 50 49 0d 20 12 1c | 20 43 50 53 49 3d 9b 28 |-TPI. ..| CPSI=.(|
|00005ff0| 50 53 49 29 3a 52 50 44 | 3d 52 50 2a 43 50 53 49 |PSI):RPD|=RP*CPSI|
|00006000| 0d 20 1c 1a 20 4c 4c 3d | 4c 50 44 2d 4c 47 3a 50 |. .. LL=|LPD-LG:P|
|00006010| 41 53 53 3d 50 41 53 53 | 2b 31 0d 20 26 27 20 52 |ASS=PASS|+1. &' R|
|00006020| 48 4f 3d 52 45 2a 52 45 | 2b 52 50 2a 52 50 2d 32 |HO=RE*RE|+RP*RP-2|
|00006030| 2a 52 45 2a 52 50 2a 43 | 50 53 49 2a 9b 28 4c 4c |*RE*RP*C|PSI*.(LL|
|00006040| 29 0d 20 30 20 20 52 48 | 4f 3d b6 28 52 48 4f 29 |). 0 RH|O=.(RHO)|
|00006050| 3a 44 54 3d 52 48 4f 2a | 35 2e 37 37 35 35 45 2d |:DT=RHO*|5.7755E-|
|00006060| 33 0d 20 3a 31 20 e7 20 | 50 41 53 53 3d 31 20 8c |3. :1 . |PASS=1 .|
|00006070| 20 4c 50 44 30 3d 4c 50 | 44 3a 50 53 49 30 3d 50 | LPD0=LP|D:PSI0=P|
|00006080| 53 49 3a 52 48 4f 30 3d | 52 48 4f 3a 52 50 30 3d |SI:RHO0=|RHO:RP0=|
|00006090| 52 50 0d 20 44 14 20 e7 | 20 50 41 53 53 3c 32 20 |RP. D. .| PASS<2 |
|000060a0| 8c 20 8d 44 54 5f 0d 20 | 4e 18 20 53 4c 4c 3d b5 |. .DT_. |N. SLL=.|
|000060b0| 28 4c 4c 29 3a 43 4c 4c | 3d 9b 28 4c 4c 29 0d 20 |(LL):CLL|=.(LL). |
|000060c0| 58 23 20 4c 41 4d 3d 99 | 28 52 45 2a 53 4c 4c 2f |X# LAM=.|(RE*SLL/|
|000060d0| 28 52 50 44 2d 52 45 2a | 43 4c 4c 29 29 2b 4c 50 |(RPD-RE*|CLL))+LP|
|000060e0| 44 0d 20 62 0b 20 e5 20 | 8d 44 76 60 0d 20 6c 28 |D. b. . |.Dv`. l(|
|000060f0| 20 4c 41 4d 3d 99 28 2d | 31 2a 52 50 44 2a 53 4c | LAM=.(-|1*RPD*SL|
|00006100| 4c 2f 28 52 45 2d 52 50 | 44 2a 43 4c 4c 29 29 2b |L/(RE-RP|D*CLL))+|
|00006110| 4c 47 2b af 0d 20 76 21 | 20 e7 20 4c 41 4d 3c 30 |LG+.. v!| . LAM<0|
|00006120| 20 8c 20 4c 41 4d 3d 4c | 41 4d 2b 54 50 49 3a e5 | . LAM=L|AM+TPI:.|
|00006130| 20 8d 44 76 60 0d 20 80 | 23 20 e7 20 4c 41 4d 3e | .Dv`. .|# . LAM>|
|00006140| 54 50 49 20 8c 20 4c 41 | 4d 3d 4c 41 4d 2d 54 50 |TPI . LA|M=LAM-TP|
|00006150| 49 3a e5 20 8d 74 40 60 | 0d 20 8a 2d 20 42 45 54 |I:. .t@`|. .- BET|
|00006160| 3d 99 28 52 50 44 2a 53 | 50 53 49 2a b5 28 4c 41 |=.(RPD*S|PSI*.(LA|
|00006170| 4d 2d 4c 50 44 29 2f 28 | 43 50 53 49 2a 52 45 2a |M-LPD)/(|CPSI*RE*|
|00006180| 53 4c 4c 29 29 0d 20 94 | 06 20 e1 0d 20 9e 06 20 |SLL)). .|. .. .. |
|00006190| 3a 0d 20 a8 0e 20 dd f2 | 4a 75 70 69 74 65 72 0d |:. .. ..|Jupiter.|
|000061a0| 20 b2 0f 20 4a 31 3d 54 | 2f 35 2b 30 2e 31 0d 20 | .. J1=T|/5+0.1. |
|000061b0| bc 21 20 4a 32 3d a4 55 | 4e 57 28 34 2e 31 34 34 |.! J2=.U|NW(4.144|
|000061c0| 37 33 2b 35 2e 32 39 36 | 39 31 45 31 2a 54 29 0d |73+5.296|91E1*T).|
|000061d0| 20 c6 23 20 4a 33 3d a4 | 55 4e 57 28 34 2e 36 34 | .# J3=.|UNW(4.64|
|000061e0| 31 31 31 38 2b 32 2e 31 | 33 32 39 39 31 45 31 2a |1118+2.1|32991E1*|
|000061f0| 54 29 0d 20 d0 21 20 4a | 34 3d a4 55 4e 57 28 34 |T). .! J|4=.UNW(4|
|00006200| 2e 32 35 30 31 37 37 2b | 37 2e 34 37 38 31 37 32 |.250177+|7.478172|
|00006210| 2a 54 29 0d 20 da 23 20 | 4a 35 3d 35 2a 4a 33 2d |*T). .# |J5=5*J3-|
|00006220| 32 2a 4a 32 3a 4a 36 3d | 32 2a 4a 32 2d 36 2a 4a |2*J2:J6=|2*J2-6*J|
|00006230| 33 2b 33 2a 4a 34 0d 20 | e4 21 20 4a 37 3d 4a 33 |3+3*J4. |.! J7=J3|
|00006240| 2d 4a 32 3a 53 4a 33 3d | b5 28 4a 33 29 3a 43 4a |-J2:SJ3=|.(J3):CJ|
|00006250| 33 3d 9b 28 4a 33 29 0d | 20 ee 1e 20 53 32 4a 33 |3=.(J3).| .. S2J3|
|00006260| 3d b5 28 32 2a 4a 33 29 | 3a 43 32 4a 33 3d 9b 28 |=.(2*J3)|:C2J3=.(|
|00006270| 32 2a 4a 33 29 0d 20 f8 | 18 20 53 4a 35 3d b5 28 |2*J3). .|. SJ5=.(|
|00006280| 4a 35 29 3a 43 4a 35 3d | 9b 28 4a 35 29 0d 21 02 |J5):CJ5=|.(J5).!.|
|00006290| 1b 20 53 32 4a 35 3d b5 | 28 32 2a 4a 35 29 3a 53 |. S2J5=.|(2*J5):S|
|000062a0| 4a 36 3d b5 28 4a 36 29 | 0d 21 0c 18 20 53 4a 37 |J6=.(J6)|.!.. SJ7|
|000062b0| 3d b5 28 4a 37 29 3a 43 | 4a 37 3d 9b 28 4a 37 29 |=.(J7):C|J7=.(J7)|
|000062c0| 0d 21 16 1e 20 53 32 4a | 37 3d b5 28 32 2a 4a 37 |.!.. S2J|7=.(2*J7|
|000062d0| 29 3a 43 32 4a 37 3d 9b | 28 32 2a 4a 37 29 0d 21 |):C2J7=.|(2*J7).!|
|000062e0| 20 1e 20 53 33 4a 37 3d | b5 28 33 2a 4a 37 29 3a | . S3J7=|.(3*J7):|
|000062f0| 43 33 4a 37 3d 9b 28 33 | 2a 4a 37 29 0d 21 2a 1e |C3J7=.(3|*J7).!*.|
|00006300| 20 53 34 4a 37 3d b5 28 | 34 2a 4a 37 29 3a 43 34 | S4J7=.(|4*J7):C4|
|00006310| 4a 37 3d 9b 28 34 2a 4a | 37 29 0d 21 34 11 20 43 |J7=.(4*J|7).!4. C|
|00006320| 35 4a 37 3d 9b 28 35 2a | 4a 37 29 0d 21 3e de 20 |5J7=.(5*|J7).!>. |
|00006330| 44 4d 4c 3d 28 33 2e 33 | 31 33 36 34 45 2d 31 2d |DML=(3.3|1364E-1-|
|00006340| 28 31 2e 30 32 38 31 45 | 2d 32 2b 34 2e 36 39 32 |(1.0281E|-2+4.692|
|00006350| 45 2d 33 2a 4a 31 29 2a | 4a 31 29 2a 53 4a 35 2b |E-3*J1)*|J1)*SJ5+|
|00006360| 28 33 2e 32 32 38 45 2d | 33 2d 28 36 2e 34 34 33 |(3.228E-|3-(6.443|
|00006370| 36 45 2d 32 2d 32 2e 30 | 37 35 45 2d 33 2a 4a 31 |6E-2-2.0|75E-3*J1|
|00006380| 29 2a 4a 31 29 2a 43 4a | 35 2d 28 33 2e 30 38 33 |)*J1)*CJ|5-(3.083|
|00006390| 45 2d 33 2b 28 32 2e 37 | 35 45 2d 34 2d 34 2e 38 |E-3+(2.7|5E-4-4.8|
|000063a0| 39 45 2d 34 2a 4a 31 29 | 2a 4a 31 29 2a 53 32 4a |9E-4*J1)|*J1)*S2J|
|000063b0| 35 2b 32 2e 34 37 32 45 | 2d 33 2a 53 4a 36 2b 31 |5+2.472E|-3*SJ6+1|
|000063c0| 2e 33 36 31 39 45 2d 32 | 2a 53 4a 37 2b 31 2e 38 |.3619E-2|*SJ7+1.8|
|000063d0| 34 37 32 45 2d 32 2a 53 | 32 4a 37 2b 36 2e 37 31 |472E-2*S|2J7+6.71|
|000063e0| 37 45 2d 33 2a 53 33 4a | 37 2b 32 2e 37 37 35 45 |7E-3*S3J|7+2.775E|
|000063f0| 2d 33 2a 53 34 4a 37 2b | 36 2e 34 31 37 45 2d 33 |-3*S4J7+|6.417E-3|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
